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I. TRTRODUCTION 


A. BACKGROUND 
К Technological Progress 


The invention of moveable type had a tremendous ime 
pact on man’s environment. The invention of printina, more 
than any single achievement, "marks the line of division 
between medieval and modern technology" (Ref. 151. Techno- 
logical improvements to Gutenbera's invention continued at a 
snail's pace through the latter half of the nineteenth cen- 
tury until the public demand far daily news required more 
ШЕРІ modernization іп the orinting industries. Constant 
improvements, one of which was the use of electrical power 
to drive presses, continued through the mid twentieth centu- 
нивогої)!, finally, one coula find printing rooms filled with 
Finecasters, complex electro=-mechanica! contraptions produc” 
ing hot metal tvpe» and oresses noisily spewing forth tons 
of paper each day. However, the public's appetite was seem- 
ingly insatiable, and, while oress speed was satisfactory, 
the entire process nas slowed by the composition functions 
or line justification, hyphenation, spellino, and so on. 
These nunctooms- still required human preprocessing ог 
operator interruption of linecasters. The solution to this 
bottleneck was provided by the computer and recent aavances 


in text processing. 





Es Computer Assisted Typesetting 


The computer, gradually extendina its influence into 
many unrelated fielas, had now entered the printing indus” 
EY. Its employment was in assisting the typesetters, not 
replacing them. Computer assisted typesetting (CATS) was 
characterized by the computer performing all line justifica- 
tion, page breaking, h^ypbhenation, etc.; essentially the in- 
formation to be printed was being oreprocessed by a program. 
The result of this crocess was a tape, either a perforated 
paper tape or a magnetic tape, which contained the orocessed 
text intersoersed with commands to the printing device, 
specifing when to hyrhenate, when to change tyceface, when 
to indent, etc. Та addition to processing text, the 
Momouter’s software had to Бе tailored to the specific 
printing apoaratus. The tape was designed to assist the 
electro-mechanical linecasters in the setting of hot metal 


type, and presses continued to produce the print. 


Soon many newspapers and publishers were using сот” 
Puters to produce tapes of processed text, which drove the 
more conventional linecastina machines. Although the future 
of computers in the orintina industries looked briaht, there 
were repercussions ana even some failures. Labor revolted 
at the smell of further automation, and this problem was 
necessarily handieo delicately. The WASHINGTON EVENING STAR 
was the first major newspaper to successfully assist its 
press operation with a computer (Hef. 61. One such attempt 


Failed. In 1962, the ARIZONA JOURNAL was founded» and ¡ts 
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мо | тећег decided to begin with a computer» a GE 225, to 
perform text processing functions and administrative tasks. 
GE's computer oersonnel working on the project knew nothing 
of publishina newscapers, and the рарег'5 staff knew nothing 
of computers. The software did not materialize ın time to 


begin printing, and creditors foreclosed (Кет. 16]. 


3. Computer Tyoesettina 


In the early 1960's, there was a flurry of develoo- 
ment Потез но сто мтао-< Previously, all printing was 
by impact, the striking of a raised shape of а character 
onto paper with some inking mechanism involved. Using new 
advances in xerography, photogranhy, and high speed control 
mechanisms, nonimpact crinting devices were characterized by 
higher printing speeds, less noise, fewer moving parts, 
higher reliability, and a areater capacity to handle both 


mextual and araphical information (Ref. 4]. 


In 1961 Micheal P. Barnett, et MIT, designed a pro- 
gram which processeca text and produced tape which arove a 
Photon 560, а phototypesetter. Прие праг лсещваг photos 
typesetter contained а disc with photographic images of 
characters from various tyoefaces. The typefaces were аге 
се: in concentric circles about the center of the disc. 
As the tape was processed, a liaht source moved back and 
forth from the center of the disc to its edge while the disc 
Nota ted at high speed. An intricate timing mechanism within 


Hie Photon 560 ensured that pictures of the correct charac- 





ters in the correct typeface were exoosed to the film behind 
the disc. от] ми either lithographic plates could 
Бе mage or documents produced directly through special 
machines (Ref. 1]. Distinguishing between computer typeset- 
ting and computer assisted typesetting (CATS) is difficult. 
Considering the tremendous potential of nonimpact printers 
and the recent (last 10 years) advances in computer output 
microfilm (COM), computer typesettina is, in this author's 
opinion, the future oirection ie пене гупе но У Industry. 
Comouter typesetting tends to be more software oriented. 
Consequently, there tends to be less of a separation between 
the text processing and the actual character generation; 
continuity 15 тоге acoarent in computer  tyoesetting. In 
computer typesetting, the computer sets "software" type; 
whereas, in CATS, the computer creates some tape which 
drives devices which set "hardware" type. The state-of- 
thħhe+art character generation techniques СОР computer 
typesetters are pohoto/optic, onoto/scan,» and digital/scan 
Шет. 2 and 141. Briefly, the three techniques are 


described: 


а. Eno toy om tic 


Here, photographic images of characters are 
Stored, and high speed access to these images allows them to 
memoroyected through a lens onto film or paper. Scaling is 
possible through lens) switching, and access times are 
several milliseconds cer character. The presence of moving 


parts limits speed and reliability. 


ша 





b. Photo/scan 


боп, ohletegaraphie images of characters are 
stored. The selected character image is "scanned"; that is, 
horizontal slices of its image are projected sequentially 
т too to bottom completing the full character picture. 
Scaling is possible by expanding and/or adding duplicate 
scan lines. Again, the presence of moving parts limits re- 


liability. 


с. Digital/scan 


All character images are stored in memory as 
ши гшге< composed cf "1's" and “O's” (bits either “on” ог 
"off"). The character images are plotted by a program pass- 
EN tne digital picture, in bits, to static printing heads 
meme head рег bit) or by recording the digital picture, bit 
EN bit, with an electron or laser gun. АНЕ ел о тело са boss 
not possible» this technique crovides the fastest character 
access and interfaces with printing devices with few moving 
parts. These last two characteristics are important advan- 


tages. Опе disadvantage, however, is that digital represen- 


tations show a "staircase" effect in larae characters. 


Producing different typefaces can be  accom- 
песо for each technique. The photo/optic and photo/scan 
methods require that a master disc of character images be 
made. Digital/scan devices acquire different typefaces from 
either of two ways. сес, there are devices that can 


ве" а рплогсоагаоћјс сћагаскег 1таае and pass a digitized 


ра 





interpretation to memory for storage. Secondly, there exist 
interactive oroarams (editors) which enable a user to 
create digitized character pictures (Ref. 2]. There was no 
attempt to analytically compare the three techniques or to 
Propose benchmarking methods as this thesis effort was res- 
tricted to a system which 1S hardware dependent on the 


digital/scan technique. 


Althouah there is much ongoing research in the 
area of computer tyoesettina», its application is well estas 
blished in the printing industry. For example, as early as 
1970, a book was published entirely by computer typesetting 


met. 5]. 


EE COMPUTER TYPESETTING UNDER UNIX 


|. System Design 


This section cescribes the system as it existed be- 
fore this author began his research effort, and, although 
many improvements were made, not all system components have 
been modifiear however, tne system may still be utilized in 
A Original configuration if desired. The basic components 


of the system are described below: 


а. Troff 


КОИ is а text processor similar to Nroff, and 
both were designed at the Sell Laboratories by the same au- 


Bor (Refs. 8 and 9). Troff; however, accepts additional 





commands to change tyrefaces (hereafter referred о, and 
later defined, as “fonts"). Normally, the output from Troff 
goes directly to a phototypesetter. There being no such 
device at NPS, Troff has been modified, and its output be- 


comes an intermediate file which is orocessed by Vts. 


E Vts 


Vts iS a virtual typesetter, a proaram which 
takes the preprocessed text lines from the file from Troff 
and which then sets the required digitized character defini- 
moms into plot buffers. The plot buffers are sent to a 


Versatec printer/plotter. 


Cae Edf 


eda s a топа editor: an. interactive program 
that enables the user to create ana maintain digitized 
Шоп. In its original form ìt Orócessed ónly fixed width 


Nuts cf a specific size. 


de Font Library 


The original font library consisted of tour 
memes. Ihree containeo the standard ASCII character Set, and 
the fourth contained special characters tor setting 


mathematical formulas. 


e. Display 


There is a disolay program which will] БОГ, on 


the Versatec, all characters in a fort. 
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The system components described above were 
desianed and programmed by Professor G.L. Barksdale. They 
are intended to maniculate fixed width fonts, the charac 
ters of which are all 16 oixels wide and 20 pixels high. A 
"pixel" is a unit of resolution (a picture element) оп а 
plotter. On the Versatec» there are approximately 200 pix- 
els per inch. In setting digitized characters, a plot 
buffer reoresents one horizontal line (raster line) of pixe 
els, i.e., 20 plot ouffers would need to be Sent to the Vere 
ее to plot ("print") a line of text. Figure 1 illus- 


trates the interolay amona the various system tools. 
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SYSTEM DESIGN 





FONT FILES 
? 





ТУРЕЗЕТ DocuMENT 


Fiaure | 


Ш 





ле о папгсетес«“ ПО щесгтуез 


The original objective of the thesis research was to 
me ease the font library to include variable width fonts of 
various sizes. These fonts, 34 in all, were obtained in 
machine form from the Stanford Artificial Intelligence La- 
boratory (SAIL). Additional objectives were to modify the 
system components to handle the varıable width fonts, and to 
add to Vts a limited plot (simultaneous text/graphics) cana-~ 
‘o 5) ty. [п con UA) on) th this author's thesis, LT. P.M, 
Dovle adaoted the Hershey Character Sets for use in graphics 
and typesetting. LT. Doyle develooed a program which cone 
verted the vector formatted Hershey font files to digitized 
font files; a scaling option was made available in the 
conversion proaran. The modifications to the system tools 
were the results of both theses (Ref. 5]. The following se 


quence was daesianed to attain the thesis objectives: 


a. Desian a UNIX compatible file format тог стоте 


mezes font storage. 


О. Convert fonts from SAIL to NPS file format, 


correcting any netected errors, 


с. Modifv Edf to handle variable width fonts. 


Ge Modify the system font disolay program to display 


maereaole width fonts. 


€. Modify Troff. 
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Молу утс, 


а. Document the new system (write a user's manual). 


h. Document the program development and the thesis 


research (write the thesis). 


The objectives enumerated in a. through я. were 
completed; however, their completion reauired more time then 
was anticipated (primarily due to the debuggina and testing 
phases of program develooment). Therefore, objectives e. and 
f. were omitted., In their places, a program called Signmkr 
was written. Signmkr sets type in the same manner that Vts 
would have, had it been modified. Additionally, its design 
included the capability of some simple text processina func- 
tions. Objectives a. and h. were comcleted. The user's 
manual was published separately as an Technical Note [Ref. 
7) and received distribution as such. The remainder of this 
thesis documents the objectives meet and 18 concerned orice 
marily with orogram desian and development. The final 
chapter presents conclusions concernina the resulting system 
configuration for comeuter tyoesettina under UNIX and some 


ideas for future developments in this field. 
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IAS FONTS 


A DESCRIPTION 
le. OŪrigin 


Атон 15 a collection of character images, all of 
which are of the same style and heignt, which are mapped 
into some character set. Fonts are in aeneral freely ex- 
changed among academic institutions, orimarily through ARPA, 
The SAIL fonts, named for the agency from which acauired, 
were obtained in digitized, machine-readable form on magnet- 
ic tape (Ref. 121. There were 34 fonts in all, and they are 


catagorized as follows: 


a. Bodoni and Nonie fonts. These two groups of fonts 
each have distinct gesians ang each contain variable width 
fonts of different sizes ana styles. Tocether, they account 


E25 of the 34 fonts. 


EUER Ср езвол со). There are two fixed width 
fonts which provide a limited araphics capability. They are 
useful for setting flowcharts, tree structures, and simple 
Seems. They are also the only two fonts in which "kerning" 


шсешга. 


G. Math. There are five fonts that contain special 


mathematical symbols for setting formulas. 
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SI О Ihis font is the only text oriented 


fixed width font in the library. 


e. SIGNS. There are three fonts which are larae and 
excellent Ce алпа documents and making sicns? S5HD15,; 


SIGN22, 516М41. 


The terms usea to describe fonts, е.с., variable 
width, kerning, etc. and the meanings of font and character 
dimensions are discussed in the next section. Some of the 
acquired fonts were originally designed at MIT, others at 
CMU (Carneaie-Mellon), and the remainder at Stanford. Stan- 
ford generally names, or has renamed, al! fonts so that the 
trailing character or numbers connote size їп pixels. The 
scheme for naming fonts at NPS is similar but denotes size 
in points, the traditional printer's measure. The 34 fonts 


added to the library are listed in Table 1. 


aa 





соп 
point 
EE 
point 
point 
Bo nt 
point 
point 
point 
point 
SO unt 


point 
point 
point 
point 
DOS nt 
о пс 
вот 
point 
point 
РОТЕ 
point 
point 


point 
point 


point 
во ток 
point 
point 
point 


point 
point 


point 
point 


Bocconi 
Boconi 
Bodoni 
Boconi 
Воаоп 1 
Bodoni 
Boconi 
Boooni 
Bodoni 
Bodoni 
Воаопт 


Мопте 
Мопте 
Nonie 
Nonie 
Nonie 
Мопте 
Nonie 
Nonie 
Nonie 
Nonie 
Nonie 
Nonie 


Graph ı 
Graphi 


Math 
Math 
Math 
Math 
Math 


Delega 
Shadow 


Sian 
Sion 


SOON TS 


Ма тета са! 


) 


Е 
Mathematical 
Bola 


a mE 
Bold 


Italic 


Italic 
Воле 
Bold Italic 


Italic 

вото 

вота Italic 
Е 

Bold 

bord Ttalic 


со 
Es 


ше 


Table 1 
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80Ј8 
BDR10 
ВОТТО 
80,110 
ВОКТОХ 
BORTITZ 
Bike 
BDB12 
BDR15 
DOTIS 
BDR25 


NONS 
NONSI 
М0М58 
NONSBI 
NONM 
NONMI 
NONMB 
NONMBI 
NONL 
NONLI 
NONLB 
NONLBI 


(ОА КО 
ОКЕХ14 


МАТНТО 
МАТН1% 
МАТН15 
МАТН20 
МАТН21 


SAIL10 
SHD15 


SIGN2e 
ЗІСМАЇ 





2. Font / Character Dimensions 


In order to manipulate Fonts and the ‘characters 
within them, there are attributes of fonts and their chare 
acters which provide information to typesetting programs. 


These attributes are the dimensions and accessing informa- 


Yon. 
а. Font Dimensions 
A font is characterized by its height and its 
logical height, the two most significant dimensions. A 


third dimension, the width of the widest character in the 
font, is of less importance. The character picture of each 
 аапасбег іп тһе font is conceptually set in а rectangular 
frame which is as high as the font's height and as wide as 
the character's raster width. The logical height is the 
distance from the tcp of this conceotual frame to the base- 
Ene, the imaginary line on which the characters sit. For 
шазше е, ""ascenders", such аз ап "А", "I", or "t", sit on 
the baseline; whereas, "aescenders", such as a "o" ог "а", 


may extend below it. СООН аге іпсопоэтісіе 1 either 


Eur heights or their logical heights differ. 


Font and character dimensions are measured in 
pixels which, once again, are units of resolution. On the 
Versatec printer/plotter, there are 200 pixels per inch. 
There 15 another descriptor of font height, the "point". At 
200 pixels oer inch, one point is approximately 2.8 pixels 


er about те тело Fonts are generally referred to аз a 
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ШШШ ЕЕ font, ап "8 point font”, and so on. Point size 
15 а general size descriptor, pixel height being more exact. 
ПИ поСбапсе, ВОКЈО is a 10 point font which is 26 pixels 


high. NONS, another 10 point font, is only 25 pixels high. 


Fonts are either fixed or variable width. Being 
a fixed width font implies that all characters within the 
font have the same wiath. Being variable width implies Su 
erwise. Variances Character wadths are a significant 
thorn in the text orocessing/computer typesetting interface. 
The text processor reauires character widths to perform line 
mectification. Table 2 is an analysis of the character 
НАСА for "W's" from various families of both fixed and 
variable width fonts. An inspection of the table shows the 
EK of any consistent relationship between font height and 
character width for fonts in general. As a rule then, Troff 
cannot compute a character width from the font height. Howe 
ever, Dy examining the error percent based on a 10 point 
reference within specific families of fonts, there appear to 
exist useable relationshios within each family. By incor- 
porating tables within Troff for eacn of the various fami- 
lies, character widths could be computed. The specifica- 
tions of such a scheme were not fully investiaated, but the 
method appears to be a desirable alternative to the access- 
ing of font files by Troff for the character widths needed 
Ene justification. Finally, fonts may be of different 
Styes. NONS is an "ueriaht" font; NONSI, an italicized ver- 


ШӘП, amc NONSB, a bold (neavier) version. 
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Font Height-Character Width Analysis 


FONT HT (pr) Cwlact) Си (сотр) XERROR 
NONS 10 2 5 2% 0.00000 
NONM 12 27 27.6 = везе 
NONL 14 33 32.2 2. цацац 
NONSI 10 21 21 0.00000 
NONMI 12 26 eo. t 3.461 35 
NONLI 14 32 29.3 8.43721 
NONSB 10 25 25 0.00000 
NONMB 12 29 21.6 4.82763 
NONLB 14 34 Se ae 5.29442 
BDR10 10 25 25 0.00000 
ВОН | в 12 27 50 hare iit 
BDR15 155 58 Seas 510518 
BDR25 25 65 Bess 0.79342 
Table 2 
D. Character Dimensions 

Figure 2 illustrates font and character dimen- 
Sons. The raster width is the wiQigth of the character ріс- 
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In setting characters with kerning, the bit pictures within 
the kerns of adjacent characters must be "anded", If the 
result of the "and" is clear (all zeros), then no character 
picture overlao will occur, and the kerning is permitted. 
Otherwise, to prevent the overlap, kerning is aborted, and 
the character spacina must be determined by raster width. 
Decisions on kerninc are made whenever either of two adja- 
cent characters have coincident nonzero kerns, i.e., either 
Bezrjant kern of the left character is nonzero or the left 
Not the right character is non2ero (or both). The capa- 
bility of settina fonts with kerning was neither a Property 
of the original system nor was it an enhancement objective, 
however, to facilitate its future implementation, kerning 
information 15 stored in character definitions and can be 
Wasted by the font editor» Edf. The two fonts where kern- 
ing occurs, GRFX10 and GRFX14, require no special treatment 


Dy typesettina proarams. 


Bodi tional Character dimensions are solely for 
accessing the bit picture of the character. The rows-from- 
too (rft) describes the number of blank (all zero) raster 
lines above the character picture in the frame; thus, this 
part of the character picture, which is blank, need not be 
stored. pm count (dre) 15 a count of the number of 
raster lines which form the visible picture and which are 
stored. Blank raster lines required to fill out the bottom 
of the picture frame are not stored, and the number of blank 


lines needed is computed using the font height, rft, and 


e 





| 


ШОО е 5 thiustrates that portion of the picture which 
15 stored and the full picture which 15 expanced by a pro” 


агат. 
в SAIL Font File Fornat 


men A onts Were" received as digitized files 
EXE ten on аә тәсе Бу а РОР-10 at Stanforo. The PDP-10 has a 
bit word with four, 99-bit bytes рег мога; therefore; 
Hung files from the tape into a PDP-11 file aid not leave 
the information in a readily useable format. For each word 
ВЕШ Саса from the PDP-10, six 8-bit bytes on the POP-11 were 
meemired, the two hiqh order bits of each byte being wast- 
ed. Conversion Mora Nore usesble, compact font file format 
Was mandatory. The SAIL and NPS font file formats аге 
similar by Jesign; however, a few minor charaes have result- 
END sianificant memory savings. Basically, a SAIL font 


ЦИЕ 15 broken ınto three Sections: 
а. Reader able 


А{ {һе becimmimas of the file is а heacer table. 
The character code collatina sequence is the indexing 
Eanijism for the table, and the table provides random char- 
БЕГ definition accessina, an absolute necessity when 
Be zing execution times for setting type. The table con- 
E188 words, the left nalf of each word holding the 
Mae ter width and the right half being a pointer сб the 
Ррәссег definition. Вие но eharseterzusctn їп any posi- 


NE Pes tnat the particular character is not cefinea in 
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ве font. 
lem Font Dimensions/Description 


Ше ont Cimensions follow the header table: the 
font height, the maximum character width, and the font logis 
cal height. Immediately following the dimensions is ап ор” 
tional ASCII descrirtion of up to 480 characters. Five 
characters are packed into each 36-bit word, and the 


Mescriotion is terminated by an all zero byte ('\0'). 
Gs Character Definitions 


The remainder of the file contains the character 
Beemmitions pointed to by the header table. Each definition 
follows an identical format and contains character cimen- 
SIONS, the bit picture, and the picture accessing informa- 


Bon. 


Баште 4 апа 5 iliustrate, respectively, the 


Nile and character definition formats. 
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PICTURE STORAGE/EXPANSION 
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Figure 5 
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SAIL FONT FILE FORMAT 


56-BIT 


WORD 





pa 
C» 
== 
96» 


„СМ ШІ сс 000 


ЕШКІСІ сс 001 


HEADER TABLE 


ЛЛ 
CW PTR Geen We) 
0200 = 
р! FONT DIMENSIONS 
DESCRIPTION 
0400 | 
CHARACTER | 


DEFINITION 


CHARACTER 
DEFINITIONS 


CHARACTER 
DEFINITION 





Fiaure U 
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SAIL CHARACTER DEFINITION 


peo 56-BITS u 


е = CBP 


RW = Raster WIDTH 

CC = CHARACTER CODE 

WC = TOTAL NUMBER OF WORDS IN CHARACTER DEFINITION 
LK = LEFT KERN 

RFT = RowS-FROM-TOP 

DRC = DATA-ROW-COUNT 

CD = CHARACTER DIMENSIONS 

CBP = CHARACTER B1T PICTURE 


реноме» 5 
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ща Character Set 


The ASCII and SAIL character sets are two different 
Minas “of” characters into a code (U-128). Figure 6 ile 
lústrates the differences, while figure / displays the сом“ 
plete sets. MileGew the woot се Contains contro} charac- 
ters, the SAIL set contains some additional orintable char- 
acters. This situation was annoying since there were no 
Нагатит геа keyboards at NPS with which to select these charm 
ко. Consequently, to select characters occupying ASCII 
code positions whicn are not printable, text processina and 
typesettina programs have software escane mechanisms to get 
at these characters. Тһе escape mechanism 15 ocescribed in 


Noter 4. 


SAIL/ASCH DIFFERENCES 


symbol ӘЛІП “АЗСГІ 


А 510 

e ш) DEF: 
ў 232 2:76 
я #55 

T 11:506 

ESE 21025 Dod 
) 2176 as 
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DEL A 


кас гете 
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SAIL CHARACTER SET 


E 
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са + нс <> 


ооо EE 
Ма Доне бо над + р> чо 0 МИ 6 р Ц ц 6 
ге о ох 
AS A ПЛ УЧ СМ 
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ASCH CHARACTER SET 


0 | 2 B 4 
000 NUL SOH ST EIX- СЕО 
010 BS ИТ NL VT NP 
АНЯ DEI DC2 DES DC4 
030 САМ ЕМ 506 ESC ES 


040 Sp М + $ 
050 ( ) x T | 
060 0 1 2 3 4 
070 8 9 : : < 
100 а А B E D 
110 H I J K ЈЕ 
120 р Q R 5 ЈЕ 
120 x Y Z [ N 
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140 ћ 1 ) K 1 
150 p q r 5 E 
160 X у 2 { | 


Fıauce 7 
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E се го Error Detection 


део у described, the font files reaa in from 
tape reauired conversion to a format more suitable to UNIX 
КООШ ле PDP-11. Prior to converting the files, Listfont was 
written. Listfont was desianed to examine a Stanford font 
ЦЕР 1апогтлпа »азбеј б165 and interpreting 18-bit PDP=10 
 ГИОгов as io=bit POP-11 full words. Listfont reads іп 
the header table; it extracts the font dimensions and 
Meserirtion,s, disolayinec them on the CRT screen, and proceeds 
NNDDPOcess each character definition. In processina each 
вшевассег aefinition, Listfont performs computations to en- 
Ши пас, if the character and raster widths differ, there 
E valid kernina. iso, stfont checks and flags nonzero 
left kerns of characters whose raster and character widths 
are equal. Additionally, usina the o1cture accessing infore 
EE s Listfont verifies oicture storage. An optional "-1" 
arqument ИЕСІ (сайсес (пе imdividual character dimen- 
sions and picture to be displayed on the CRT screen. Ánoth- 
ШЕ Ге of error which Listfont detects is tne presence of 


 ГБапесоис bytes in the file. 


Цио посета 3 file, Lıstfont counts each byte. А 
Comparison of Ки вени о у withetme file size indicated 
Dy an "Is -1 filename" proves the absence ог presence of 
Such extraneous bytes. The time invested 1n the desian and 
Ша ОТ Listfant was returned by its success in detecting 
ог Of the above types. Ме (1165 Па0 Characters which 


had nonzero left kerns and identical character and raster 


Бо 





посте. Furthermore, ПИОНИР tiles were found to contain 
Dee rat occurrences of extraneousr unused bytes. Such error 
detection was imoortant in that it greatly assisted in the 
Bean of Transfile, the program to convert font files from 
ВЕ ап Того to the NPS format. Transfile uses the same er- 
ror detection techniaues and accomolishes error correction 


Benceurrent]y. 


EE CONVERSION 


ПНР Font File Format 


vyen the existing Stanford font tile format; the 
En of an NPS format was not difficult. [here were 
МЕТЕ Гаї criteria for the desian. Пе Gestion hed to 
EXcompatible with UNIX И те посте РОР=11 (16-61% 
ШОО огосез5з'па). Second, file size needeo to ре minimized 
Nac ilitate typesetting in the minicomputer environment. 
third, the format needed to provider as did Stanford's, 
Шшгапасот accessina of character definitions. The NPS font 
to rmat is illustrated in fiaures 8 апа 9, It is broken 


into three sections: 
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NPS FONT FILE FORMAT 


WORD l6-BITS 


0 E. 
“ә | | cc 000 
02 E. 
в | I сс 001 
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Figure 8 
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NPS CHARACTER DEFINTTION 
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DATA-ROW-COUNT | 
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> PICTURE 


Fiaure 9 
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а. Header Table 


The header table, at the beginning of the file, 
Ate ias two, 16=bit words for each of the possible 128 
characters in the font. The indexing mechanism to the table 
is the character code. The first word of each pair contains 
character width іп the rightmost byte. The pointer 
structure, indicating the location of the character defini- 
tion in the file, consists of a block count (e 
bytes/block) in the leftmost byte of the first word and an 
additional byte offset contained in the second word. А тах- 
EDU block count of 255 and a maximum byte count of 32K al- 
momweror font files to approach 160K bytes. A zero in the 
first word in any character position in the header table jim- 
plies that the particular character ıs not defined in the 


Font. 


Б» Font Dimensions/Descriotion 


Only three dimensions are stored. Font height, 


maximum character width, and font logical height are each 


Гесс іг words. Тһе ASCII description follows and 15 
stored one character ver byte, It is terminated with a 
"Sun, 


с» Character Definitions 


Here, the NPS format provides substantial Save 
ings in memory. Four character dimensions are stored, each 


Ex ui! word: the raster width, left kern, rft; апа dré. 
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The raster lines which comprise the visible portion ої the 
character picture are stored sequentially on byte boundaries 


КП омтлпа the drc. 


d. File Advantages 


The header table in the NPS format is twice the 
size of that in the Stanford versions however, each NPS 
character definition stores only four dimensions as opposed 
(Еле six in a Stanford character definition. This trade» 
off results in no real savinas in memory. Significant  sav- 
ings occur in the storage of the raster lines of character 
pictures. In the Stanford version, raster lines wider than 
18 pixels occuoy one full 36-bit word with the following 
raster line beginning at the next word bounary? hence, up to 
17 bits could be wasted. Jn the NPS version, raster lines 
begin on byte boundaries}? therefore, no more than 7 bits 
will ever be wasted for any raster line. As an example, as- 
sume a fixed width font of 19 pixels is created and that 
2,016 total raster lines are needed to represent all charac- 
ter pictures. The NPS format would reauire 6,048 bytes ог 
OA bits (10,080 of which would be wasted). The Stanford 
format would require 2,016 words or 72,576 bits (34,272 of 
which would be wasted). The NPS format would have stored 
the equivalent information in 2/% of the memory required by 
нен агіогі format. Вега [Ref. 2] has stated that "аз а 
MINERO. thumb» for 100 printing characters at 10 point size, 
approximately 8,000 (16-bit) words of storage are reauired." 


SAIL10 (120 printable characters), BOR 0 (120), and NONS 
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(96) have file sizes of 8010, 6198, апа 3872 bytes  respec- 
tively. The comparison 15 a general one in that Berg's rule 
Киш леда no particular olottina density. For example, 1 f 
the rule were apolicable to a e with a plot- 
ting density of 400 pixels per inch (twice that of the Ver- 
satec), then one could conclude that the NPS font file for- 


mat generally reauirec memory in accordance with the rule. 
г. Transfile and Error Correction 


Transfile was desianed and written to transform font 
es from the Stanford format to the NPS format ands in doe 
ШРШ 50, to detect and correct anv errors. Transfile takes 
pairs of arguments, transforming the first argument of a 
Beier which must name a Stanford filer to an NPS file which 
is given the пате of the second argument of the pair. Ап 
odd number of arguments causes Transfile to exit. In 
transforming a filer the program first creates the NPS file 
and writes out a blank header table. It then examines’ the 
header table of the Stanford file to determine the number of 
characters in the font, reads іп tne font dimensions and 
description, and processes the character definitions. As 
does Listfont, Transfile ianores the two wasted high order 
bits of each byte anc compacts 18-bit PDP-10 halfwords into 
ДЕ РрР-1]| full words. It writes out the font dimensions 
and the description, if any. Transfile also writes out the 
NPS filename in the event that the Stanford file had no 


description. 
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In processina each character, Transfile checks die 
mensions to ensure compatibility and makes corrections 1+ 
necessary. For example, if a character has equal character 
and raster widths and a nonzero left kern, then the left 
kern is set to zero, and the prover dimensions are written 
out. Listfont, as previously mentioned, detected this type 
of error twice. Each occurrence was ina font which had no 
other kerned characterss therefore, the error was corrected 
by ignoring the nonzero left кегп, i.e., by setting yat го 
zero. Transfile also detects unused (empty) bytes 1n the 
file, essentially throwina them away. The proaram keeps a 
па count of bytes written out and marks, in a program 
data structure, the starting byte address for each character 


definition. 


After orocessing the last character, Transfile seeks 
to the beginning of the file and writes in the new header 
table. Upon finishing each pair of arguments, the program 


displays the file size in bytes. À comparison with the size 


што сасе by an "15 -1! NPSfilename" verifies а successful 
file transformation. Files, once transformed, decrease to 
between 47-83 percent of their original size, Execution 


times were not measured for either Listfont or Transtile as 
both programs were intended to be run only once on any one 


file. 
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EDF... THEN 


Originally, Edf was desianed by Professor Barksdale to 
provide the capability of creating and editing a particular 
855 о: fixed width fonts, all characters being 16 pixels 
wide and 20 pixels hiah. Edf was an interactive program im- 
plemented in the programming language С. In its edit mode, 
Edf would read an entire font file into a character array 
(128x40). Each character definition was accessed by its 
character code (0-127), and its bit picture consisted of the 
next 40 bytes, two bytes representing one raster line in the 
character picture. The simple font design and data struc- 
ture facilitated easy character definition accessing for 
Mmrstings, editing, or celeting.» etc. In the create mode», the 
array (128x40) was cleared, and the user began with all 
characters having blank pictures. Edf possesed an efficient 
command handling mocule and input several and display 
routines. Using these routines аз 3 Skeleton, Edf was 
modifiea to edit and create fixed and variable width fonts 


of different sizes. 
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В. MODIFICATION REQUIREMENTS 


Prior to modifying Edf to manipulate variable width 


fonts, certain requirements were first identified: 
|. File Format 


Edf needed to be able to interface with the newly 
desianed font file format. It had to be able to access 
character definitions, font dimensions and eis. and 
ШЕ had to се able to write out edited or created fonts in 


this new format. 
г. Commands 


From the set of commands available in the oriainal 
version of Edf», a minimal subset of commands needed to be 
implemented. This subset could be defined by excluding the 
"nice to have" commands. The commands available under the 


mp roved version of Edqf are described later in this chapter. 
Б. Memory Recuirements 


Edf needed to be able to deal with fluctuating 
memory requirements due to the dynamic sizing of characters 
in the fixed and variable width fonts. Static data struc- 
memes coula not provide such flexibility. Specifically, a 
buffer, large enough to hold the biagest character defini- 
tion, would be needed. Additionally, Edf would have to be 
ЕЕЕ СО store modified character definitions of varying 


Sizes until the editec or created file could be written out. 
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ШОО ЕС! Status 


The editina and creating of variable and fixed width 
fonts increases the lencth of the interactive Session, and 
the added complexity of varying character dimensions can of- 
ten cause 3 user to forget what has been accomplished and 
what remains to be done during the edit session. Edf needed 
to be able to provide some table or display, showing the 
status of each character in the font; i.e., undefined, Де“ 


fined but unmodified, modified, deleted, etc. 
БИ Dimensions 


In addition to being able to change character ріс- 
tures, the user must be able to chance font and character 
dimensions, and any chance must be checked to ensure that it 
Bema Valid, reasonable one. As examples, a user must not be 
allowed to increase the character width of a particular 
character to a value greater than its raster width, nor must 
he be allowed to change a font's height to a negative value. 
Edf must be able to compute the new rft and drc of a modi- 
fied character pictures however, Edf should not be responsi- 
mre. for ensuring that the modified picture is accurately 


ЕБОР бес оу all character dimensions. For instance, 1 + а 


" и 


user were to change the picture of the character "a", making 
it shorter and skinnier, Edf must be able to compute and up- 
date the rft and drc. The user would then be responsible 


for making the appropriate adjustments to the character and 


raster widths of мате Such restrictions are necessary to 





limit program overhead. 


meee CONCEPTS AND TECHNIQUES 
mee Concepts 


There are several concepts which make up the confi- 
guration of the interactive font edit/creation process. А 
character buffer holds the character definition being modi- 
fied, a linked list manaaes the modified character defini- 
tions, and a file, if in the edit mode, represents the ine 
formation (character Eins). requiring changes. The 
UNIX system routine Alloc(II) (Ref. 13] provides temporary 
memory to store mocified charcter definitions. Figure 10 


illustrates the file/work area configuration. 
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Modified Character Definitions 
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Character Buffer 


Figure 10 
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а. Techniques 


а. Current Character 


kurrent Character" (ес) is a pointer to a char- 
acter position (0-127) in the font being edited or created. 
Any command takes the character definition pointed to by cc 
БН (5 орегага. The character definition referred to by cc 
is never loaded into the character buffer unless some com- 
mand reauires it. Edf promots with the octal value of cc, 
ШОИ ТАТТУ 0, followed by ">". The current character тау be 
incremented, decremented, or set to any value in the range 
0-127. Araparound occurs automatically when incrementing 
above 127 or when decrementina below 0. Whenever cc 
changes, Edf determines, before executina any command, i f 
the character definition in the buffer has been modified. 
ESO, Edf reads the modified definition out to the linked 


list and then executes any awaitina command. 


s Character Buffer 


Ibe character Duffer 1s 4000 bytes long and is 
large enough to hold the biagest character allowed within 
the limitations of font height and character width. ЕО! 
will ecit or create fonts up to 120 pixels (ahout 42 point) 
Enmhedjcoht and characters uo to 255 pixels wide. Тћеге 15 а 
routine responsible for loading character definitions into 
the character buffer. Whenever a command requires а defini- 
поп” uu routine will first inspect a global flag which 


indicates if the definition oointed to by cc is already in 
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the buffer. Were zdefjaitsıem pointed to by сс, the operand 
ПУ command, is mot in the buffer, this routine will 
load it into the buffer from one of two places. First, de- 
finitions which have been previously modified or definitions 
Ш ЕС ос. being created will be loaded into the buffer from 
the linked list. Otherwise; the definition IS accessed and 
loaded from the file beina edited. In loading the buffer, 
the character dimensions (raster width, left kern, rft, and 
drc) are stored in the first eight bytes. Then, using the 
rft and the raster wicth, the reauired number of blank lines 
are inserted into the buffer. For example, a raster width 
of 17 reauires 5 bytes for storage. If the rft were 4, then 
4 blank lines or 12(4x3) zero bytes would be inserted. 
Next, the routine uses the drc and raster width to read the 
mci Zed oortion of the character picture into the buffer, 
and, finally, Шиа Опе Ее are, and font neight, it com” 
putes and inserts the necessary number of blank lines needed 


to complete the character picture. 
Co Character Picture 


The character picture was expanded when the 
Character definition was read into the buffer. The picture 
15 accessed beginning at the ninth byte and is displayed on 
the CRT screen with Jine numbers from 0 to "font height=1". 
The width of the matrix in which the character picture is 
displayed is ecual to the number of bits in the bytes re- 
auired to store a raster line; therefore, unless a 


character's raster width is a multiple of 8, 1ts displayed 
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picture will make the character apoear wider than normal, 
mee, if а character's raster width 15 1/ and the font 
height is 20, then the character picture will be displayed 
in a 20x24 matrix, since 3 bytes (24 bits) are required to 


hold a raster line. 


de Linked List 


The linked list contains a node for each modi- 
meee charcter definition. Each node contains the character 
Code, wnich is the ordering criteria for the list (the 
lowest code is placed at the head of the list), a pointer to 
MED lock of memory (provided by А|'ос(11)) holdina the 
character definition, the status of the character's modifi- 


п 


cation ("m"-modified, | -included, or "d"-deleted), and а 
pointer to the next node in the list. A dummy node with a 


mmermacter code of 32677 marks the end of the list. 


е. Font/Character Dimensions 


Having adced or chanaed a character picture, the 
user may want to change or may need to Change character di- 
mensions. Also, he may wish to change font dimensions or 
the font descriotion. There is an interactive module which 
15 quite versatile in allowing these changes. The module is 
described in the command descriptions. It displays a set of 


instructions upon entry and has a uniaue prompting symbol. 
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m: Nriting Out a Font File 


Mennitti nG out a file, Edf first writes a blank 
header table followed by the font dimensions and descrip- 
Eon. Then, beainninc at character code 0, Edf incorporates 
modified character definitions from the linked list with un- 
changed definitions from the file. It maintains a byte 
count, in 5Sl2-byte blocks and bytes, of bytes written. Опсе 
the last definition has been written out, Edf seeks to the 
beainning of the new file and writes in the new header 
table. Eaf will remove the new file from the directory if 
no character definitions were written, 1.e., the user wrote 
out a font іп which he had deleted all characters during the 
edit session. As a final gesture, Edf displays the new file 


byte size in decimal before auitting. 


See CAPABILITIES 
ime invoking Edf 


The current version of Edf is considerably larger 
ф Бап its predecessors a Growth resulting from the addition 
of modules to manipulate the more comolex and more dynamic 
format of the new font files. Creating a font may be accom- 
plished by one of several means. First, a call to Edf with 
ШИ агайтепес indicates that the user desires to create a 
font from scratch. The user must specify the characteris- 

нон 


ШЕВ ОС the new font and then use the "а (add) command to 


create specific characters at each character position. Re- 
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peating this process for 128 characters can become exceed- 


ingly tedious. A more efficient option is to create only a 


" 4 


few new characters anc to then use the "i" (include) command 
to include other characters from a comoatible font. A third 
option, somewhat similar to the second, is to use the "а" 
(delete) command to remove unwanted characters from a 


selected base font. 


To edit an existing digitized font file, Edf ree- 
quires an 3araument consistina of either a font file name ог 
a complete path name. In the first case, the font editor 
assumes that the font 15 located on the directory 
Byeeronts.U!l/font/" ana prenpends that string to the argument 
before issuing a system call to open that file. If a come 
olete patn name is used, Edf will open that font file. Ir 
mee font file is missing or if the font file contains ine- 
Ed information, then Edf Will exit with ап aopropriate 
error message. А Hershey font (Ref. 5], digitized to any 
desired size and subject to the limitations discussed later, 
can also be edited. References 5 and 7 provide excellent 
descrintions of the Hershey fonts. Some examples of valid 


calls to Edf are listed below: 


edf 


This indicates that the user desires to create his own 
font. He may give it any name when he writes it out, end- 


ШО (пе edit session. 


за 





edf 51684] 


Nu сер „опеке to edit SIEN4I om "/.fonts.01/font". 


edf /usr/doyle/fonts/HTRU2 


The user wants to edit an existing Hershey font file 
а нтк4г, а Ігіріех Копап font at 42 point, on directory 


myusr/doyle/fonts/". 


edf Н5Р20 


The user wants to edit an existing Hershey font file 
Med HSR20, a Simplex Roman font at 20 point, on directory 


Mu tonts.0Ol/font/". 


edf -HGE 56 


The user wants to create a Hershey font file in the 
ес Enalish буре а! б point. He may write it to any 


directory after it has been digitized. 


edf -HCS 


The user wants to create a Hershey font file in Complex 
Script type. Юе оп Size defaults to 10 point, and the 
font may be written to any directory at the conclusion сї 


the edit session. 
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а. Commands 


The basic command line consists of three parts: the 
current character selector, the command itself, and argu- 


ments, ìf any, to the command. 


а) <number> | 


Change the current character to <number>. The 
number may be octal (oreceded Бу a zero) or decimal, Апу 
number greater than 127 is converted to 0, and anything less 
һап 0 15 converted to 127. Any command may acpended to 
«number». The effect is to change the current character 


first and then to execute the appended command. 


Examples: 0176, 0, 161; 782 0 25, 163. 


Increment (decrement) the current character. Игар- 
around occurs as in <number> above. Either <+> ог <-> may be 
used but not both on the same Command line. Ány command may 
be appended to either, and the effect is to increment (de- 
crement) the current character first and then execute the 


command. Only one "+" ог "=" may be used on a command line. 


Examoles: +1, -, +, +е, +с0 40. 
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с) («питрбег»| | І)! (-)а 


Add a new character to the font at the current char- 
acter positions The "a"(add) command is complex. А 
"o" (parameter) command 15$ executed automatically. The 
displayed instructions to input the dimensions of the new 
character must be followed. The new character is being de- 
fined at the current character. Äfter exiting the parameter 
command looo, the user may use the "с"(сћапде), "e"(edit), 
EX Shift), or "I"(list) commands to form the desired char- 
acter picture. The character buffer has previously been 


zeroed. If the user uses «number», "+", or "-" to change the 
current character before he is satisfied with the new char- 
Euer picture, the unsatisfactory picture is stored. If this 


happens», the character picture may be relisted and changed. 


Examples: +3, “а, 0562, 19335 ae 


а) [<number>1;1+),[-]c [<number>] («numoer»?] 


Change lines "s" through "е", prompting for each 
EN с" alone sets "5" со 0 and "e" to "height-1". "c" 
followed by one number sets both "s" and "e" to that number. 
"C" with two numbers sets "s" and "e" accordingly. The 


numbers тау be octal or decimal, and а space 15 required 


between two numbers, 
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Ехатр1е5: tc, -с0 10, 077с 1 044, С, Е ВО 


e) di«number»] [<питоег>] font file 


" " 


ВЕЕР етае "s" through "e". "а" alone sets 
Ero 0 and "e" to 127, effectively deleting the entire 
font. "d" with a sinale number deletes that character code. 


$ " " " 


на" with two numbers deletes СИ ојл “е /ineluysıve, 
ENUers may be octal or decimal, and а space 15 required 


between two numbers. 


Examples: а, os а 0176, 920.057, 


+) [<number>] ! | +), Г-)е | <пуипЬег>) [<number>] 


КООШ 5” Сокоца "е", promoting for each line. 


and "e" are set as in "c"(change). While editing a line, 


н " 


5 
Benti*d" comoletes the line as it was. This command uses 


ШЕР ТІР5 |ігпе-есісог functions in the terminal handler. 


Examoles: е, ШЕШПЕЙ» Та 5 5, “е, Те 12. 


af 


Sys, 





ШЕП сп (ОЁ) а flag controlling the display of 
character dimensions. Once turned on, character dimensions 
are displayed every time a character definition is fetched. 
Displaying is turnec off by a subseauent "f", "f" may be 


prepended to any command. 


Examples: fy fl, tfe 0 10, ОЛКО 9 10. 


h) i(«number»] [<number>] filename 


шаси сенсрвегастегз "s" throuch "е" from the font 
file filename”. "s" and "e" are set as in the "d"(delete) 
command. ШІ the font file being edited or created and 
"filename" are not compatible, then the include will not oc- 
Gur. Subsequent uses of "і" do not require "filename"; ып” 


less, ӨТ course, the user wishes to include from another 


font file. 


Examples: Г ВОВ, ypoHESOU, +. 


i) (<лаџтрбег>]); [+]; (=]]) L<number>] [<nmumber>] 


Ме mes ss. through "e" of the current character, 


and "e" are set as in "c"(change). 


Examples: зі 0 10, -), |, 076l; imos 
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Iu спо" топ description ana a table reflecting 


the status ЕШ (ГС ЕСІС session. The table provides an ex 


Serpent means of managing edit work. Figure 11 illustrates 


the results of executing an "n" command durina an edit ses- 


поп. 


575 n 
в Delegate (Stanford Artificial завета Laboratory) 


1 2 3 4 5 6 
зов X X x x X Х x 
212 X x X X x A x x 
020 X Ж x X X X Х x 
939 x Ж » X x x x x 
940 X x X X X X X X 
958 X X x x X x % x 
eso M x x X Ж X x x 
979 X x X X X Ж x x 
199 X x x x x x x Ж 
119 Х Ж x x X X x » 
129 X X A x x X x x 
139 x x X x X X X X 
140 х x x x x x A x 
159 х x x x x x и X 
160 х x D 5 р D D D 
170 D D D D X x x x 
Е те ^4' unmodified ’I’ included "р" deleted ‘М’ smodifisd 


Figure 11 


шизпо! е: Ne 


k) p 


E г |(гбагатесег) command executes an interactive 


module of Еп? which allows the modification of character and 
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font dimensions and description. A set of instructions will 
be displayed and may he recalled if required. This module is 
quite versatile. The user must keep in mind that character 
and font dimensions аге being changed, not character pic- 


Eures. 


Example: D 


Quit warns once if changes have been made and not 


written out; otnerwiSe, it exits», closing any open files. 


Example: Ge 


т) (<потбег>); (+); (=)5 1:г:џ:а (<потђег>) [<number>) 


Shirt Pines "s" through one pixel Lette Ci), 


Eroht(r), шо (и), or down(d). The resultina lines are au- 


" H " " 


tomatically disolayec. and e are set а5 in 


me Change). 


Examoles: +510 10, 044su 10, ЕГУ -са. 


п) w filenare 
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Write out the font file being edited or created to 


ШЕРІ Іепате". w must have a "filename" and will not allow 
the user to write to the font file being “edited. "ы" 
displays the byte size, in decimal, of "filename" and then 


 Тогпс a "a"(quit). Writing out a font file takes longer 


than writina out a normal file. 


Examoles: w temp, Ber stomntes.01l/tont/HEI2D. 


о) «rubout»i«break» 


Either key causes an interrupt which is (гассес. 
Nhatever command was executing is stopped, the previous en- 
vironment restored (the command loop iS reentered), and the 
user may continue. Neither key undoes anything; they merely 
give a mechanism for killing commands without killing the 


Erooram,. 


ПИ IMITATIONS 


ere are two types of limitations to Edf. First, there 


EN се to nave" type commands such as folding character 
Fes, italicizing fonts, and producing bold fonts which 
were not included aue to time constraints but which could 
easily be added in tne future. Second, Edf has not had 3 


thorough testings There are many checks throughout the pro- 


Gram which were incluced to detect bad tont files and to 
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prevent the program from abnormal termination. Edf is good 
at Screening commanas and at flaaging bad ones. Although 
possible to string some commands together on one command 
line, Some combinations are pound to produce strange 
results. The user should combine commands only as described 


in the preceding section. Despite its limitations, Edf is an 


extremely useful tool. 
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ieee RESETTING TOOLS 


The user's manual [Ref. 7] provides detailed  instruc- 
tions on the use of the two typesettina tools described in 


мире chapter. 


A. PRFONT 
Í. Desian 


Prfont was designed as a final test of a digitized 
Nont. If a font, when displayed by Prfont, appears ragged, 
then ıt 18 not yet satisfactory for use in typesettina. 
Prfont displays an entire fonts setting characters on бог" 
izontal lines in their collatina sequence. To do this, 
Prfont reads in the header table and font dimensions from 
the font file, checking for invalid font dimensions. First, 
usina the Versatec simultaneous printer/plotter mode, the 
font name is centered above where the font will be 
И | - „са, EET Ont then runs through the header table ac- 
auiring enouah characters for a row. Once a row has been 
КО еа, Prfont fills plot buffers with the digitized pic- 
tures of the collected characters. Plot buffers, once 
filled, are sent to the Versatec one at a time. Once a 
number of plot buffers equal to the height of the font have 
been sent, the line of character pictures is complete, and 


Ome пе о characters has been Set. Prfont thën plots- 5 
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blank plot lines to provide character line spacing. Before 
continuina, the program frees the allocated memory (from 
Mmiroctll)) that it acauired to hold the character defini- 
tions awaiting plottina. Prfont frees this memory in the 
reverse order in which it was requested. This reverse order 
of freeing is important. During the testing of Prfont, cer- 
tain sequences of memory allocations, if not freed іп ге“ 
verse order, caused an abnormal program termination when the 
program was later reauestina additional memory (in the > суб“ 
tem routine Alloc(II)). This problem became much more com- 
plex in Sianmkr where certain characters were used several 
times оп a line. Prfont then gets another row of charac- 
mers, continuing the process until all characters іп the 
font have been displayed. In setting character pictures, 
Prfont sets all the bytes used to store the bit picture. 
For example, if a character has a raster width of 17, then 3 
bytes(24 bits) are set in the plot buffer, as opposed to the 
ес па о the first I7 bits alone. Setting расешгез Dy 
bytes as opposed to bits greatly speeds the process of fil- 
lina plot buffers while producing the same character pice 


tures. 
2. Features 


Prfont takes multiole arguments, either font names 
or full pathnames, Prfont ensures a one and one half inch 
margin at the top of the page and one inch margins else- 
where. Furthermore, Prfont looks ahead to ensure that the 


next font to be displayed will fit on the current page, 
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causina a page eject if sufficient room does not exist. 
Prfont also takes an optional numeric argument. This argu- 
ment must be the the first argument and must be preceded by 
- "ux", The argument, any number from 1 to 264, resets the 
width of the display field in plot bytes. Often, in an exe 
tremely large font or on days when UNIX is servicina many 
users, Alloc(II) will be unable to provide the memory re- 
quired to hold the character definitions awaiting plotting. 
If this situation occurs, the program exits, aisplaying a 
message to rerun with a narrower disolay field. Such a field 
would hold fewer characters апа, therefore, require less 
memory. The default paaewidth, or display area, is 216 plot 


bytes. 


ШӘ Design 


As the thesis objectives requiring the modifications 
of Troff and Vts were not attained, this author desired some 
means, however limitec, of setting text with the adapted 
Fonts. With that objective in mind, Signmkr was designed. 
Signmkr reads lines from a text file interspersed with а 
limited set of text processing commands and sets the text, 
according to the commands, in the selected fonts. Briefly, 
the design includes both text processing and tyvesetting 
functions. The program is a novelty; it is more suited to 


making sians than for producina documents. 
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Sianmkr loads a default font, SAIL10, and commences 
to read characters into a text buffer until a '\n' is ene 
countered. Further described in the command listings in the 
following section, there is an escape mechanism to provide 
breakpoints at which certain text processing and typesetting 
tasks are verformed, е.а., loading a new font, centering a 
Pine of text, soecifying a character code for а printable 
МИ character in an ASCII control character position, etc. 
Characters are transferred one ov one from the text buffer 
нор a print buffer. During this transfer a plot width is 
maintained and escape options handled. Once a "'\п' has 
шееп found in the text buffer or the olot width of the print 
buffer exceeds the paaewidth ( the concept of pagewidth 15 
the same as that in Prfont), transferring stops, and charac- 
ters in the print buffer are ехоапаей into multiple plot 
ШУО тега by the insertion of their digitized pictures. 
Again, the olot buffers are sent to the Versatec one by one; 
however, in Signmkr, digitized pictures are set bit by bit 
as opposed to Prfont's byte by byte picture setting, and 
pagewicth 15 measured in bits as opposed to bytes. The 
overhead involved іп extracting the bits РОТ the bytes 
Storing a raster line, has been minimized. Only one pro- 
meagure call is required to obtain the next bit in а raster 


line. 


mina user has placed a character in a file and if 
the characters are beina set іп a font in which that partic- 


ular character is undefined, Signmkr will automatically ine 
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pert the blank (040) character in its places qut the font 
Eno blank character, Signmkr exits. Nhenever Signmkr 
cannot handle requests, it disclays diagnostics and the line 


beina processed before вх трів. 


Example: this source produces this. 
cadadanaaaaad caaaaamaaada». 
~ НЯ м # адаааааз~ В ~ МИ, ~ = ов м 
аабааҮсаааа3 XaadaaYaadaas 


м  CQaaaanaaaaao 
farm A ^ NIL « 
заааааУааааай 





Fiaure 12 


Е Features 


Fiaures 12 ana 13 are examoles of Sianmkr's caoabil- 
ities, and, ЖИ ticure 15 1S an excellent description 
of Sianmxr in itself. Some of the figures in this thesis 
End most of tne та са ге titles were set by Signmkr. The 
various commands to Sianmkr are summarized below. VES 15 


ШІ | ASCII escape character (033). 


3) FSCc < one line of text > 


Ihe "center" command centers one and only one line 


МИА се. and that line is the line immediately following the 
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command. The user must use this command for each line to be 


centered. Ne 15 too long to be centered, then 


Sianmkr will inform the user of this fact and ignore the 


line. 


р ) ESC#<fontnane> 


imescmeommanag allows the user to change the font бе“ 
ing used for typesettinas it must be used only at the head 
of a line or on a line by itself. Full pathnames are ас“ 
ceotable. A blank must not be left between the command and 


the new font name. 


2 ЕЗСрахп 


И ситна |} Cagecreak commend and ts similar tO 
the mem command used in МЕОҒҒ, It sends a form-feed sia- 


АШ (0 the Versatec. The command should be used on а line 


by itself. 
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ПОН ESCooN\N 


The "begin oaragraoh" command indents the text line 
for paragranhina. The size of the indent is determined by 
ehe size of the current font. Like the "pagebreak" command, 


ШЕ гоа бе оп а tine by itself. 


е) ESCs<number> 


lE се wconmmand inserts blank lines within the 
Next. The height of the blank line is equal to the font 
heicht. A blank must not be left between the command and 


the number. The number may be octal (leading 0) or decimal. 


ED ESCo<nuyumber> 


Ds command всесітіез а спагассег by its character 
code within the current font. The command may be used at 
IND int within a line, but t must not contain blanks., 
This commana is useful in accessing a character from a SAIL 
Memumwniose character code corresconds to a control character 


mae oc ll. берега Ее octal О Тезата 0) or decimal. 
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Users with previous experience with text processing 
programs should have по trouble in adapting to Sianmkr. 
However, caution should be exercised when usina the "ESCoo" 
(paragracn) and "ESCf" (chanae fonts) commands at the same 


Ent in the input file. The two sequences of input lines 


S) ESCf BNRB (DOME SET воба 
ESEBENNA ESCf rMTTR30\n 
ESCE HTR39\r ШЕ ЗЕ ве Ха 
< inout text > < input text > 
are not identical. Sequence (a) will set uo the indentation 


meme the next paragraph assuming a font height of 8 point, 
Ее text will actually be set in 50 ooint type, so the 
indentation will not be onvious. Sequence (h) chanaes the 
Ent neicaht to 30 point and then indents based on that 


шелобгі. 
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м. . CONCLUSIONS 


EN IIAINMENT OF THESIS OBJECTIVES 


Nretrospect, the thesis effort may be divided into 


maree main areas: 


ША Data Base of Digitized Fonts 


МББ о себе базе ot diaitized fonts for а 16-61% 
environment was created. This accomplishment encomcassed 
the first two thesis objectives listed in the Introduction, 
the design of а UNIX compatible font file format and the 
Meme rsion of the thirty-four SAIL fonts to this format. 
This effort began in early February, 1977 and was completed 
in late March. Consicerable time was spent in desianing and 
шоогаттіпо Listfont. Listfont provided for the processing 
ле raw data, the Stanford font files on tape. After 
desianina and огоагатіпа Listfont, this author was thorough- 
ly familiar with the concepts involved in storino digitized 
character definitions and was aware of several errors in the 
бб па font files. This awareness was invaluable in 
desianina a compact font file format for use under UNIX and 
in designina Transfile, the orogram to correct errors while 
ОГП SAIL fonts to the NPS format. The resulting 
files represent a varietv of different software type for use 


computer tyoesetting. 





2. Software Tool Development 


The second area of the thesis effort consisted of 
completing thesis objectives three through six: the recesign 
of Edf to edit and create fixed and variable width fonts, 
ШЕ design of Prfont to display fonts, and the design of 
Signmkr to set text in the digitized fonts. None of the 
many problems encountered in program design required the 
modification of the fort file format initially designed. 
The file desian was such that character pictures were easily 
accessible, and programs could often use routines from  рге- 


viously designed programs with only minor tailoring. 


E Documentation 


The third and final phase of the thesis effort was 
the documentation. First, a user's manual was written (coe 
authored) (Refs. 5 ana 7]. The manual was designed for а 
student with moderate experience with UNIX, no experience in 
computer tyoesettina» and a desire to pursue further 
development of computer typesetting under UNIX. Second, the 
thesis documents the total effort, focusing mainly on pro- 
gram desian. During this final phase, the author came to 
several conclusions concerning computer typesetting under 
UNIX and comouter typesettina in general. In the former 
case, there ıs areat potential for experimentation in the 
design of a software oriented computer typesettina environ- 
ment, a software environment which could conceivably be 


modified to ле С топ оп different computer systems using 
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different printing devices. In the latter case, there is 
great potential in printina-related industries for increased 


profits and lower machine maintenance costs. 


COMPUTER TYPESETTING UNDER UNIX 


Although all of the programs could be improved, as 15 
discussed later, the system software is efficient, and the 
algoritnms could be reproarammed to adapt the system to 
another computer ог, under UNIX, to drive a higher speed 
plottina device. To gain some appreciation for the time re- 
quired to set type under the present system, “THE QUICK, 
и FOX JUMPED OVER THE LAZY WHITE DOG.” was set in  in- 
meeasing font sizes. The timed results are displayed in 


Table 3. 


Це 





FONT REAL SEM INPUT/OUTPUT 


BDJ8 1820 05 e.a 
BDR10 28.0 05 5.0 
ЕТО 27.0 s Cet 
BDR15 27.0 15 56 
SIGN22 25:0 D 3.8 
BDR25 34.0 2.6 4.6 
S16N41 dec Во Бб 
Times are in seconds. 
Table 3 
By examining Table 5, two conclusions are obvious. por st 


system and input/outout times are dependent on font height. 
Secondly, given the above times for the setting of one sen- 
tence, the production of larae documents would be unreason- 
able. Slow typesettina times are caused by the low plot 
speed of the Versatec, and the constant demands on the 
PDP-il's unibus design which services all users and peri- 
pheral devices. Ficure 21! of Appendix A required 32.5 
seconds of system time and 26.6 seconds of input/output 
time. In summary, UNIX has orovided an excellent environ- 
ment for the aesign of a system of programs to effect сот” 
outer typesetting; however, UNIX is by no means prepared to 
provide the environment needed to continuously operate such 


a system. 
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ПИ РОТОКЕ MODIFICATIONS 


The results of this thesis and the efforts documented in 
reference 5 are that UNIX now posseses a large data base of 
fixed and variable width fonts and three significant tools 
for further development of the system. Troff and Vts have 
not been modified, anc, until they are, computer typesetting 


under UNIX lacks its cotential capability. Considering that 


the ore-thesis system configuration stil] exists for the 
original four fonts, the expanded font library and improved 
tools reoresent a sianificant enhancement. This author 


recommends that futher development to enrich the system be 


conducted in the following areas: 


le, Troft 


ПИО ШОН. to Brocess text files to be set in any 
of the fonts in the oresent library. The major effort in 
this area is the desicn of a scheme for Troff to compute 
character widths from a font mame and height. Troff should 
oroduce A file to be crocessea by the virtual typesetter, 


MIS. 


е. Vts 


Modify Vts to set fixed ana varianle width fonts 


stored in the NPS font file format. 
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3. Software Tools 


Although useful in their present torms, additional 
options could be addec to Edf and Signmkr. First, the capa- 
Semmes Of Producina italicized and bold fonts in Edf from 
a roman font would бе а sianificant improvement. Second, 
although its place in the computer typesetting system will 
always remain that of a novelty, some additional text for- 
Eng options in Sicnmkr would make it a more useful tool. 
Both Prfont and Signmkr can be made to execute more rapidly 
by filling and sending groups of clot buffers to the Versa- 
tec as opposed to the present design of transmitting plot 
buffers one at a time, ага, in all three ргодгат5, the 
number of disk reads for each character definition access 
could be reduced from five to two. Presently, the complete 
character cefinition 1s accessed by seeking to and reading 
the raster width; three subsequent "reads" obtain the left 
кегп, rft, and drc, respectively., After some computations; 
the entire bit picture can then be read into proaram memory 
(the fifth "reag"). Instead, by seeking to the definition 
and readina all four dimensions (8 bytes) into a buffer, the 
bit oicture can be read into program memory, after some сот” 
putations, іп а ѕесопа "read". Thus, the number of "reads" 


character access is cut from 5 to 2. 


4. Kerning 


The concept of kerning shoula not be implemented un- 


ti) Troff and Vts have been fully integrated into the fixed 
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and variable width font environment. When implemented, con- 
sideration should be given to either modifying Edf or creat- 
ing a Separate program to Provide the ability to display 


Ears of characters with the kerning effect. 


pee Flot Capability 


As a final enhancement, both Troff and Vts should be 
modified to process textual and graphical information from 
the same file, allowing for limited graphical displays іп а 
primarilv textual document. This modification demands effi- 
cient use of memory as the Versatec cannot reverse paper 
movement, and Vts must be able to store information in 
"lookina ahead" to comolete araphical displays. The need 
for computer typesetting systems to handle both graphical 
and textual data is well documented and such systems provide 
great versatility over others where the two types must be 
treated separately. For example, as early as 1963, the U.S. 
Government Printing Office issued a reauest for a typeset- 
ting system based on photocomoosition. One of the require- 
ШИ was an ability to handle randomly occurring graphic 


formats in text documents (Кет, 141, 
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APPENDIX A FONT DESCRIPTIONS 


The SAIL fonts are displayed on the following paaes. 
The displays were produced by Prfont and are in the same 
order as the listina in Table 1 of Chapter 1. The final 
page of the appendix was set by Signmkr and is included to 
illustrate the contrast among the fonts. A comparision of 
the SAIL fonts displayed on the following pages and those 
displays in reference 12 reveal added characters in the МР5 
versions. The additions were made at Stanford after the 
publication of reference ic. The additional characters have 


not oeen removed. 
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pi 94nbtj 
(ојузахмапаз дбдоцшт 148 јороде, > [Х ]7 А 
XMAMLSYOJONN ЛЯТНО ЛЯПОЯУФ; << >::6819576С18/7- + ж(). 8 #4# 4 Лея < ee EADnUcCO Qo хиз-м)/ 21 


стнач 


Mo] zx man 3 s1bdouu | (142 јор 
oque, 234[MIZAX AADn.LSHOdONWIXAfIHOA GO Og V3 2€ *681985$£z10/ + 0.97289, ^sO zc COE ANU c 25eoovir»- v 797 


хотнан 


{ e| )z4x aan 15 4bd ouut jqf£. 11 8 fopoqn, 
о У (А) АХ МАПА М0Оа ОМ ТАГГН ОД За пр 9; <=>: 68, 95722 10/'-' + ж0) 0 8 | ^85 є еФБАПИ с 5600 + миэ-УУЭТ 


отган 


(e| )z4x man 1$ 4bd oui j4£ 1 2 fopoqn, 51 
INT ZAXMANISNOÖION B T1XNf IH 24L 3DHU Dd<=>:6BL9SFEZTO я ж() 2258, І л=25#~ Є eepARnU c 2Qo ffxv u5- vg'7oT 


errata 


(^l } тАх млиззтЪдопи  чача yop 
оде, 51 [\ ТАХААПАЪЗ НО ЯОМИТЯГТНОЯЯПО Яуб << >::68196УЕСТ0/"-“+ Ж), В 8# 4 Ли < ев Е АПИС о0сохи ~ VJET 


отнач 


(e|; 4x mams» 


bdouujy [142 jop2 qx,» IL VZA X ALISNOdON R13 [1 H243028V9 i«-5i68198v£210/^ 7 ex(, 9290 i NETS ere "eEAnUcoe mE хи revi PT 


grad 
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ср ечпоїз 


(m pz Ax M An1exbdouvw piu gro 


роде >ИМХАХА АП 1, 5МОаО МИТУ ЛНО зла Ову 92 <=> 
:68199ФЕС10/ 9 /фе Леро eeEAnucoQoovip-v 57291 


сона 


Г ~ |12% хта пазар Фопицу 1у 2 јородо о |(ЛМ/Д/АХ AA(LLSHOdON WITH ÍITH24 
ATIHPDE<=>S:EBLISPEZTOS - KO $ i AzS žne T e eE ANU copou vy AT 


сач 


годпякКхмлаззльдопшу і цгероде, «|МІДАХАМЛПІ5М 
ОАОМИТЯПНӘОЯЯаОЯУ94<->568,965%6010/-% 0974 А:525%е- COEAMCIQOYUIV J PT 


сагная 


( e|] z 4AxnA n3sabd o uut jf 193Jopo qe, 21[N ]ZA X 
МАПЈМОаОМАТ У Гоа 10 209790; <= >: 68 19572 010 /- + ж(), 9 4481 ЛЕСри~6е e8E AnUco Qoo үнә-У 297 


olidd 


(М )х хтапаолбао ил 19 [143 јороцо, | (7 /2 ХХ МЛПЈ 
суПаомити гг ноняаоняног <- > “6819596810/-+ж() Ру 82! Мет еврдпосоеојхло-Уу 1 


oll dd 
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9] aunbt 4 


Пух Ах млпузаБао 
пия пубрероае- зА 17 АХЛАЛАП 1 НО ЧО НИТУП НО азаоята 2 С= > 68199 702 1 0/'-' +х(), 994 ~ | 


UNNON 


{| }zAxmanjssbdo 
uw а Гу блероде +: Г У г? АХ МмЛпа е ноаомит хане я заоянедс с <>: в6ялосрегто/- +, () Фі ч $ 


INNON 


{|}zAxmanysibd 
опш» пубазароа  ([4])2 АХМАЛПА НО ДО МИП УГ1 НО 30 8 У 9 2 <= >: :68 27997 22 10/'- +х (),  ФЖ%% йі ~ і 


HNON 


(13z4xmanasabdouu ix [10B40poqess[ V]JZ AXMAD1SUOdO NIILTIT 1H943028U 86€ 22 1:69299 b £2 LO el ) ЗУЄ мні з $ 


IHSNON 


{1} zAxmanysıbdou wiyfiyßzepage+s[\ JZAXM ANLSH DdO МИ ТЯ ППНО ЗЗ аову 226 => 68 299рЕ2 10/' -"+ж(), #81 ~ Й 


HSNON 


(1Jz4x manasabdouuly [148 4epoqee s[AJzAXMADn LSUDdON W TI P1H943008V 84€ 2268298682 10/^ - *«() 9W$ емі - + 


ISNON 
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11 940614 {[}zAxmanzssbdouuyyfrybye 
poqe»[VzAX MAR 4SHOd ONHI DICT IHO33028V 02€ 722 :68298bp£210/ - *x(), 9 4$ gui ~ k 


Td (NON 


Cl)zAxmAnisabdouu pif iub) 
epoqes. [NV JZAXMANLSYOdONW TIP IHDASGOGV DEC => !:6BLISVEZLO/*-‘te(). B%SHuI~ | 


HINON 


(13zAx manisabdouu pif i 
uBjepoqe»s[M]z AXMAn 1,SHOdONWTX h1H943028V86€ 2» :69299bpE2 10 / - *x( 2,09 5 $9 „ni~ È 


IINON 


ВД УК хм лпуєлЬ доці я 
пубругродезь БА )гАХ МАПІЄНОЧ4ОМИ ТУГІНО JIUIAVDE<=>!:6BZ29SFEZ10/- HU З Фі зо й 


"INON 


(| zAxman3sibdouuw]yf 
iu542apoqe »i[A]ZAX MAD LSUDdON WIN IHO4333g28VO2€-2:68249S8t £ZLO/ - t. () '9Z$ ul 7 i 


IHWNON 


(|IyzAx MAmsibdouujxftu6 jepoqes 4(N]ZAXMADn1SHOdON WDI ГІНО З зЗаод у 0 26=>:6829972210/'- + и ЛЕК & 


SNON 


па 
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роде vl B ZAXTIAPULSHDdONLEDIC H9330238V«é «—» : :58/995Є218 / (А \ usu 


РЕХЧНО 


B+op>qe \ >) [\] ZAXMANLSYDIONW TAT IHIJIOIBV EL =>! '68/3S*SEZ T0/ *- * *() Aa re, 


OTXAUO 


y (913 zAxmanys abdouu| xf 105498 


^=““=|< Ху || У рано ех H WHT 


~ (%] ) zAxmanysabdounjyfıy 
j ^ec^v|e elllXv// YO rer ел НА ДА 
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Gio oe Y 


LIS OX 


(ИДИ 
uf ,zen 


| m «ID Xb dae 
NFL J=8es=>[/-I2T9 0027 ¿259133198 <=>-0900 OVIDO/“+F+-(),+Z AZ%P9>WESEANUCISE¿AL 0 


&GIHLVN 


«»Xp-HlmeEess^ATJ/ A4» tT:(),*[$ #9: 
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NLSIUAU 
| Й/- »,) E 


«= 2. А А А 
ша 


Ne 


NIWTAPTHS dada v= 5823476 


GNOIS 


,25&632AN61A0A G8 069 0077230 000822)6031510755 6 9/2 98/5 G2 9,0 9d. OC 


стане 


АЛАН an Lu Ei Enz ав ZEAL ZAXAN NLE Nodo 
1 


yr 
ОС »(),5%$ #41 Z254 = обје Am оро Ls XU výp 


2 I 
нон 2 <=> ':681/95%52 ? 
отттув. 





Го ечпіц 


МЫНДА SI ЈУНА 


SI LAOJAA LAOHLIM NALLIAM SI LVHM 


JIJ AWEDA III Обе) (01 59 499499 ANA MAA 60 ДП 


uosugor- 'адповота зпоцзтм реэл [249198 ит $т 140141э INO0YITM UNIITAM ST 1PUM 
иозицог- :әлпѕегја јпоцилм рвол јелаивб ш 51 3104Ј9 јпоцим џојиам sı UM 
позицог- *euynseejd ¡noyyim peal ¡eJ9uab ul $1 310419 Noyym пәни sı JeyM 
иозицор– 'олповоја јпоцим рваз јелзиоб ш 5! моја јпоујуум изјзаим 5! Ј2ЕуЛ 
uosuyor- ‘aunseajd зпочум реда фелоизб шев мојјо упоцим чацым SI JeyM 

иозицог- :e4nseajd зпочил реол јелаигб ил 5! ј1ојја јпоцчим џојуизм Sı JgeyM 

иозицог- "азпевоја упоцум реза јелаизб ш 5 340)129 упоцум иазуам $1 3е4чм 

uosuuor- -eJnseojd јпоцчуим ррал јвлаиоб и! 5! 1701ј9 јпоцум иодезм 5! ЈРМ 


иозицор- 'алпевоја зјпоцилм рвал јелаџоб ul si 110419 зпоцим чедил SI PYM 
vosuyor- :einseejd Inoyyim peaı Jeiauoß и! $1! 210449 зпоцим иври 61: ец М 

uosuyor- “оапзеофд јпоцим реај |елаиебв ul 5] 3104192 INOYIIM UIIJIIM Si JeyM 

vosuyor- ‘0752919 јпоцум реел јелешеоб и 51 11030 зпоцим иезиьм 51 Ј24М 

џоѕицор- :өзпѕве!а јпоцум реоЈ |2гјоџоб шщ 81 1101449 почим чецим SI LEUM 


MOJIM Peal [819099 UL SI злорто JNOYIIM UPAM ST PYM 
uosuyof- 'aınsoajd inoyyim рога роләиәд ит 51 140f [8 почит чәзплт 51 10Ч Д 


uosuyof- 'e1nseo[d зпоцтм Peal [e19u93 UI SI 110778 INOYIIM USIJLIM SI IU /A 
џозицој– '9лповоју јпочим реод једоцод 1 51 310779 INOYJIM мојим ST IEUM 

uosuyof- -ainsvajd јпоцлт рога зрагиг З ит 51 240 fa зпоупт идат 51 704 ДІ 

uosuyof- "sınseajd INOYIIM реол једоаџед ш! 51 1лојје јпоцим џем SI JEYA 

џозицо [– "олпзезја зпоцим реол јел9о0204 ut st 320173 зпочіїм u2933L1A S1 3P NAA 

иоѕичо[- `әлпѕоәј точут рога ролацо? ит st 140//2 тоцит изпит 81 10у 41 

uosuqgof[- -94nspojd 1пточит роэл ]04эиэ8 ит 51 110//2 inoy im uo1114m 511044 


uosuyof- “олпзе 4 зпоцфим реол |елочей из з1 $10JJ9 INOYITA МӘЛІМ SI JOYA 
иозицо f - “әмтятәрі Inoynm pDaJ фпидиг? ит в 120//2 1noynm usınum 12 30Y Af 














APPENDIX B PROGRAM LISTINGS 


This appendix contains the program listimas» the source 
codes, for the programs described in the body of the thesis, 
Each listing is preceded by a one page description to avoid 
having to refer to various chapters for general informa= 
tion. One of the advantages of the program language С (бег, 
10) is that, while not self=documentina, it has constructs 
which are very descriptive; however, where necessary, come 
ments have been added. Subroutines within proarams are gen- 
erally listed in a standard manner. "Main" appears first and 
is followed by subroutines in order of decreasing prom- 


1 пепсе. 
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LISTFONT 12 May 1977 LISTFONT 


BESCRIPTION 


listfont [-1] «filename» 


Соп process a font file of the Stanford format. pt 
examines the header table, the font dimensions, and the 
ASCII descriotion. In doing so, Listfont ignores wasted 
ШЕП order bits and interprets 18-bit PDP-10 halfwords 
as 16-bit PDP-11 full words. The font dimensions and 
description are displayed on the CRT screen. Listfont 
then processes each character definition, detecting and 
flagging discreoancies in character dimensions or char- 


acter picture storage. An optional Pew argument 
displays character dimensions and pictures to the CRT 
Screen. 

ШІГЕ5 


«filename» must be a Stanford formatted file which has 
been read into a UNIX file. 
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LISTFONT CISTFONT 


ог о С ас) 
char dimension/picture | 


#define OK 
//controls optional 
mroat bytc; 

int сһагы (1281; 

Ent caddr(128); 

int Ху, #2? 

char textbuf[430), ћрот (6); 
Мк о сре г,ро, (0,б1е7%; 

ШІ ргіпіетіго 0; 

int unused 0; 

int raf 0; 

mac Ikf 0; 

char ха, 


таїп(агас,агам) 

int argc; char **arav; { 

int iv), 

if (--argc == 
БЕЛПЕТСТРАН 
exit( ); 


0) { 
SMETERS 2"); 


} 
ШІ (а гом [1] [0] 
Brintflag =] 
fp OPEN(ara 


= te!) 
= V 


[21097 
} 
else fp 


= ОРЕМ(агам (11,0); 
BerbIk( ); 


//aet Баг table 

charblk( 2); //aet font dimensions 
шині к( ); //get font asci! descrioctiíion 
EN rintf("5. Character Definitions: in"); 
uUrmwobinkin(2); 


| = 128 - unused: 
//process the 'j' characters in the font 
Тог(1=20:; 1<); 1++) 


chardefs( ); 

pbInkIn(i); 

report kernina or dimension errors 
mmurafiprintt("Raster widths (с char 
else printf("Raster width 

meet kt) printf("Kernina occurs 
//raf should equal Ikf 

else printf("No nonzero left kerns\n"); 
//if this doesn't agree with a 'ls =] 
//then there are extraneous bytes present 
printf("Total bytes processed- 
BEDSECfpo): 


) 

Ке ) (//дао thru hdr taole, count chars 
int 1; 
bytc = "1! 
у = charw; 2 = садаг; 
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char widths all 
ха сітесіп!, | ҰТ); 


CISTFONT 


isting 


77 turn on ori nt flac 


ҮСЕН е хаты ғат? 


equal\n"); 


filename' 


Ao ume bwtctl.); 


in font 





норсої-0; 1<128; ¡++ 
жу++ = аећи( ); 
х2++ = oethw( ); 

) 

ВЕСТ = О; < 12871++) 1+1 (скваги [1] == 0) unused++; 


} 


int gethw( ) (//5 PDP-10 bytes to e PDP-11 bytes 
unt c,t: 
ЕАО (Тр, 8с,1) 
READC fp, %с,1) 
 ЕАО(Фр,%с,1) 
рукс Е + 3.; 
ФР ЭИИПРПГ( (с << 6) | ); 


. че че 


} 
bytes(x) 
int x; (//trash x bytes and bumo up counter 
НК 1757 
Цој 1=1; 1<=х; 1++) { 
КАО Реке» 1); 
Byte «т l.; 
} 
} 


pblnkln(x) 
mak; (//print x blank lines 
int 1; 
Ғог (121; 1<=х; 1++) 
putchar('\n'); 


} 
obInk (x) 
mc xr (//print x blanks 
їп 1; 
КОР 1=]; 1<=х; 1++) 
putchar(' '); 
) 


Emarolk( ) {//print font dimensions 


Ее "1. Characteristics: Nn"); 

pbInkin(2); 

ругез (9); 

пес“ Overall heiaht of font Kpixels)=  АаХп", 
geth«()); 

bytes(3); 

Пет ( viidth of widest character= Nm 
gethw( )); 

Бутез (5); 

АСС“ Logical height above haseline= лап» 
gethw( )); 

ругез (158); 

оріпкіп(4); 
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Esntblk( ) {//orint 
int irn? 
amar с; 
n= bleft = b з 0; 
bitotr = 2; 


while ((c = 


textbuf [n++] = 


printfí("2. 

pblnkin(3); 

Рог (150; 1i<n; 

роіткіп(і); 

ругез (576 = 
) 


char nextchar( ) 


char гето; 


nextchar( 
с; 
Font ДрезсгірсіопіХхп"); 


TOMES 


) ) 


description 


= 0) 


i++) putchar(textbuf lil); 


о); 


{//оеї пехї сһаг 


in ascii description 


int 1735 
temo =& 0; 
Тог(120; +1 < 7; 1++) { 

ре == 2 6G blieft == 0) { 

а = hbuf; 
READ(fp,hbuf,06); 
Byte =+ 6.7 
bleft = 6; 

b =+ 6; 

} 

Switch (bitptr) 4 
case 2: temp = temp | (*d % 080) >> 5; break; 
case 3: temp = temp ! (ха % 000) >> 4; breaks 
case 4: temo = temo | (ха % 010) >> 3; break; 
case 5: temo = temo ; (ха 5 004) >> 2; break; 
case 6: tenp = temp ı (ха % 002) >> 1; break; 
case 7: temp = temp , (ха % 001); break; 
Sewage. Oeiattt ол реге ZdNn",bitptr); 

exit( ); 

} 

17 (1<6) temo =<< 1; | 
(++oitotr > 7 ı (bleft == 1 8% (bitptr"-|) == 
ӘТЕрІг = 2; 
bleft == 1; 
а+ +; 

} 

} 
return( temp  ); 


} 
chardefs( ) 


ehar 


wO Со, 1, С,г (С; 
int defc,drc,rwırk; 


(Y7erocess, ome character definition 


зи 


6)) 





} 


BEAB(fp,&to, 1); 
Do = tp << 3; 
БЕЛО ( тр,«оси |), 
В to, (Coc & 070) >> 5); 
БЕЛО (раб, |); 
Букс =+ 3.3 
ос = (ос << 6) | t; 
ОК printf("Octal code: "); 
if ( oc«8 ) OK orintf("00"); 
се if ( o¢<64 ) OK putchar('0'); 
NSrintf("Zo",oc); 
ШЕ обріпЕе(16); 
defc = gethw( )-2; 
ше (ое с << 0) {//stop here, there is no Picture 
OK printf ("NONPRINTABLENn"); 
OK pblnkin(2); 
Бугез (6); 


returns 
) 
Mor Att" Eharacter width=  ZdAn", charwloc]l); 
гы Ж (гы == 0) 2 charwlocl : rw 


//гм із см => better be kerning 

ШГ гн '= charwloc])) raf**; 

OK printf("Raster width= Lo ги??? 
OK pblnk(15); 

READ(fp,&81,1); 

ша (| << 5); 

READ(fp&rft,1); 

EEUU ((rft. & 070) »» 35); 
ЖЕЛО(ТоО,%5,1); 

uus ( rft «« 6 ) | t; 

ЕМЕС zt 5.; 

И wSrintf("Left kernz LANO y F)? 
rk = rw = (сћагм ос] + 1); 

//all dimensions better jive 

ШИРАК « 0) OK orintf("FILERROR - "); 
ОК orintf("Riaht kernz Ac pi) 
BN rk Іі! 1) 1kf++;5 

О 1пк (17); 

Mor inttiít Rows from top= Kd\n", rft); 
dre = getnw( ); 

Шегі пея С" рага row counts 70", dre); 
ОК ррігк (16); 

Мог пстС“дјетс= ХсХп",де с); 

//now walk thru picture definition 
rastrin(defc,drc,rw); 

OK pplnkIn(2); 


meastrin(defc,drc,rw) 


int defc,drc,rw; {//process char picture definition 
int 1, ј,] уптотгмут; 

char t; 

int ouf{90); 

It pbuf (270); 
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int *o,*q,*n; 
ОК овіпкіп(1); 


//how many PDP-10 bytes per raster 


ЕЕ (ги: 1)/56 + 1) ж6б; 
//how many raster 
nz (1 DUE EMO rw: |, 
while(drc) (//wnile data rows are 
> OU ft; 
МОС: =0, у < 1: 1++) 4 
READCfÍp,&t, 1); 


byte, St 1.7; 
хр + = ((t & 070) >> 5); 
кр - (t & 07); 
) 
а їз п З obuf; 
D - buf; 
for(iž0; i < 251; 1++) { 
ХОР = {#(р); 
ха+ + = 5(р); 
katt - td(o**); 
) Y 
mumrw = Сагс < т) ? dre : т; 
гог(120; 1 < питги? 1 ++) 4 
{ог()50; } < гы; j tt) 


DIS cU DP 
АНИНА pto n) 
} 
Arc == numrw; 
defc =- 1/6; 


} 
//trash any extraneous bytes 
Dytes(defc#6), 


} 
mist (n) 
Пи «о; 1//use flo),s(o),td(o) to 
А хп == 0) ОС), 
взе porintf("1"); 
) 
mat f(o) 
mot «xp; { 
switch (32o) { 
бога 0: case l* case 2: case 3: 
гегугп (0); 
сазе 4: сазе 5: сазе 6: сазе 7: 
return(1); 
default: Peimet( Melo )7 
} 
} 
int s(p) 
ШАКЕ хо; 4 


2E 


line? 


Woes esch b bytes? 


left 


st picture 





Swatch (*o) { 


со „сасе |: сз=<е 4: сасе 5: 
return(0); 


Ame. 6356 52: case 6: case 7/7: 
return(1); 
default: orintf("heloi1"); 


} 
} 
ШАЛЕ tdlp) 
156 Хр; { 
switch (xp) { 
МӘСЕ 0: Case 2" сазе U? case 6: 
гегугп (0); 
БӘСЕ ІІ 25856 о: case 5: сазе 7: 
return(1); 
ыг дәш]: РУПЕ пре јве  ); 
} 
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TRANSFILE 12 Мау 7 TRANSFILE 


BESERIPT ION 


tramsftle «sf» «nf» А ПОН оси «Sf» €nf» 


Transfile takes pairs of arauments. It transforms the 
first argument of a pair, a Stanford font file, to a 
font file of the NPS format with the name of the second 
argument of the pair. Transfile exits if aiven an odd 
Number of arguments or a nonexistent file. Transfile 
detects and corrects dimensionina errors, removes unused 
Dytes, and displays the transformed file's size before 
precedina to the next pair of arguments or exiting. 


STE ES 
ucro must be a Stanford formatted file. 


«nf» will! be shortened to length zero if it already exe 
ists. 
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ERANSFILE TRANSFILE IRANSE ICE 


#define READWRITE 00666 //access mode for transformed file 
mat for, fpw 

int notused 0; 

ED kbytc; //bytc counter 

int dead, 

char ibuf (2561; 

char tbuf 125] 
char pbuf [25] 
MEE obuf 1256) 
Et big, blkc; 
nt flag, 

Et charwptr[2561; 
char *o; 

int bitptr: 

Шбаг textbuf [4801] ; 
char ха; 

int g,bleft; 


е че че че 


Nan storm font f1les from the Stanford format to 
the NPS format; correct errors as detected х / 


паіп (агас, агам) 
int argc; 
char *xaravs 4 
mee 1,к,), fileptr;: 
Eeutchar('Nin'); 
uut" xNniransform f3les by pair...Nn")5; 
Ant O FILES:  "); 
| = 1 ; | Сагас;1++) ргупбт('"%5 „ага (1) ); 
eutchar('\n'); 
fileptr = 1, 
ШІ ((агос--3)72 1: 1) 
printf(Incorrect number of arguments\n"); 


/* бу ра1г<$, transtorn the Ist argument (Stanford fıle) 
Мей спе end arqument(NP> filél..ooon.. 
ШЕКЕ continue Until oairs of arcs are exhausted */ 


else while (агас) { 
МЕ - Ола руке - 0; бікс с 0; 
ШІ (спог( (реагам |! 1Тергг!?), (Я< "з1тап 1 14"))) Бъз = 1; 
(сес 101! for the bio file 
tor - open(acav(fileptrt**],0); 
{ры 7 сгеа! (агам | 1 Тергг + +), РЕАВИКТТЕ); 
ее (1=0; 1 < 256; i++) 
ее С = 0; 
write(fpw,obuf,512); //write blank hdr table 
mumot ole), //set the byte counter 


ГА 


for(120; 1 < 256; 1 ++) { 
charwotr(i] = getval( ), 
и (елагмо гл) == 0) motused =+ 1; 
) 
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kill(9); dead = putsavel( ) 
къ 1 (3); dead = outsavel ) 
к111(5); dead = putsavel ) 
к1ї11(158); 

fontbdlk( )? //aet ascii description 
E = 0; 

tor(¡=0>textbufljl] #5 "ХО", | ++) 


Рог( 15); (сех+ Бут (11 <Загам Г Е 11 ерег“ 11 (к) ) $= "ХО "71 + +) 


че че че 


к++; 
T write ascii description 
for(iž0;textbuf{i] :='х/0";1++) { 


putchar(textbuf[il);} 
write(fow,&textbuflil,1l)-; 
рито (1); 

} 

write(fpw,S&textbuft11,1); 

bump(1); 

с ас ха“), 

dead = 128 = notused/e; 

//process chars in font 

Ме -=0, 1 < dead; 1++) 
charcef( ); 

ао back to head of file 

seek(fpw,0,0); 

ucr(isU; у < 256; 1+%) 

ОО (т = сћагечрег 1); 

//write out the hdr table 

write(fpw,obuf,512); 

/* close files, write out byte count (this should 
agree with a 'ls -1' on transformed file), дес” 
rement the argument counter by a pair (2) х / 

2Позге (тог); 

сТозе ( ри); 

Це па ос иле РС Size of %s...%d blocks + Ха Бубсез п", 

argvtfileptr-1),blkc,bytc); 

Осе рг лк "о у2ге от #5-...%а4 bytesNn",arav[fileptr-71], 

бус); 

Butchar('\n'); putchar('Nn'); 

агас == г; 


} 


истог (р!,ра) 
ег хр!,«кре; { //rtn i if [о=рг, 0 otherwise 


Romi ; s» ) ( 
16(хо1 != хра++)гевогп (0); 
it(xpl++ == '\0')return(!); 
) 
) 
bump (i) 
int i; ( //bump blk,byte counts by i as required 
ше Сото) ( 


ши (рубсстъ >= 512) ( 
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лес Ec «ec 55) ( 
Фе 
рис = (оу ес"71)%51!е; 
) 
аисен ти гбуге тт > 65555) ( 
printf file too 518 )) ехіс(); 
) 
else bytc 2% 1; 
) 
else bytc =+ 17 
) 
else бугс =+ 1; 


) 


Ext getval( ) 1 //3 bytes to é 
read(fpr,ibuf, 3); 
вет [0] = (С 1654110] & 017) << 12) 
(C Јоу) << 6) 
(ош (еј & 077); 
гегугп (оБч [0] ); 


} 


Шек осе згаме( ) ( //5 to 2 and write them 

read(fpr,iduf,3); 

ВО} = (С ¡bufl0) & 017) << 12) 1 
Ши пе нет 8 O77) << 6) 
ИШИГ 5.077); 

write(fpw,obuf,2); 

bump(2); 

return(obuf (01); 


} 

11 (х) 
int x; { //trash x bytes 
read(fpr,i1buf,x); 

} 


Шек могас( ) ( //rtn the number of 6 bvte words 
//to the character oicture 
read(fpr,ibuf,5); 
EU) = («6 1Би#[0) 8 017) << 12) | 
Beamer li) Zr 07/7) << 6) 
( ibuft2] & 077); 
сош 1901 =- 2; 
return(obuf [01 ); 
) 


unto retrw()i //get rw, write rw, cmor rw to cw 
"Ld си, set flag to check Ik 

mag = 0; 
пезос Грг,1606,5)7; 
E] s ((1buft0] 077) << 5) | ((їбаєГ1) 8 070) >> 3); 
пи = (С при ЕО 207) << 6) 1 ( ibuft2) & 077); 
ao = Cobuf10] == 0) ? charwptr[2*obufl[lil) : орч? 10); 
спагиотгг |2жоБч# 11] + 1] = byte? 
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ПИО eharnotrlerobutl])} =, (рікс «« 8); 


Ше cobut (0) 


• 


(charwptr(2*obuf [11) 


writeCfow,obuf,2); 


Буто (2); 


return(Cobuf (0) ); 


morit( ) i //get, 


шо: ts 


write 


геаа(Трг,10џ 7,5); 
ELIO ((1buf [0] 8077) «« 3) 1 
( ibuftl1] 
//correct any errors 
ШІ СІТіас) ооч”(01 = 
write(fow,obuf,4); 


ПОШТ] = ( 


рито (4); 
) 


char next(x) 


int xs 4d //rtn value 


char temps» 
rot 1; 

temo =& 0; 
Рос(120; 1 


< x 


, tt) 


switch (bitptr) 


ОМК ТОРЕ апа t 


к Оў) << 6б) 


0; 


( 


СООО) азаят 


Ciburt tl 2.070 0 SS 5); 
Gi out tc! 


о pest x Oits tO pak 


{ 
{ 
temo ; (*p & 
temp |; (Хр 4 
temp : (Хр 6 
temo | (хр & 
temp | (Хр 6 
temp y (*o 4 
temo р (хр & 
temp | (хр & 
РЕМ ра 7а 


); 


temp =<< 1; 
{ 


E 


er line into 


case 0: temp = 
case 1: temp = 
case 2: temp = 
case 5: temp = 
case 4: temp = 
case 5: temo = 
case 6: temp = 
case 7: temp = 
default. егу Ает 
exit( 
} 
ШТ C (1*1) !- x ) 
МИ СБ бог > 7) 
Dastot c2 0; 
pity 
) 
} 
ШИ < 8) temp =<< ( 
return( temo & 000377 ); 
} 
pak(x) 
int x5 ( //оак 1 rast 
nat 1; 
for(i-z0; 1 « 205; i**) 
obuf [i] 2% 0; 
1 = 0; 
while (x) { 
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0200) 
0100) 
040) 
020) 
010) 
004) 
002) 
001); 


"nut array 


>> 
>> 
>> 
>> 
>> 
>> 
>> 


1; 


& 077); 


break, 
breaks, 
breaks 
breaks 
break; 
break, 
break; 


break, 


Nae soit ot ce 





КОО - Техеі (х >- 8) 2? 8: x); 
ЖЗ (ХХ >20 09) 7 хе8 : 0; 
) 
) 
сотргѕ (х) 
wt x; { //cmos int array into bits 
int k,bitsl; 
паг тугу 
EE tbuf; i = 1007; 
for(kz0;k«205;k**)  x*t++ =8 0; 
t - tbuf; 
61,51 = 8; 
while (x) { 
switch (bits]) { 
case 2: кр з хо |; (хі & 060) >> Y; 
tff, 
ROT) << 4; 
xe-,; bits! = 4; 
breaks 
case U: хр = xt ı (*i 3 O74) >> 2; 
СЕУ; 
чара трио (къ & 005) << 6; 
x==; bitsl = 6; 
breaks 
Бәсе Е Ее E 077); 
Е ttt; 
x*-; bits] - 8; 
break; 
шапе Ее (уте А 0/7) << е, 
х==; bitsl = 2; 
break, 
бе аргу" т<! = ZdNn",bitst!)s:. 
ех1{( ); 
} 
} 
} 
chardef( ) //process one char definition 
ІНЕ 1; 
int rw; //raster width 
int counti Иле in definition 
int rwperwd’//raster lines рег word 
rw = retrw(); 
count = worde( ); 
solit( ); 
dre = putsave( ); 
while (dre) { //while data rows are left 


tout; 


О 
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bitptr з 0; 
(га > 56) { 
read(fpr,ibuf,({rw/36 + 1)х6); 
comprs((rw/36 * 1)*6); 
рак (ги); 
игла три ври, (гийв << 0) ? rw/8 : rw/8 + 1); 
bump( (rw%8 == 0) ? rw/8 5 гм/а + 1 ); 
сгс с” 1; 
count == rw/36 * 1; 
} 
else { 
read(fpr,ibuf,e); 
comors(6)-; 
Nenas (dre < озо/гм) 7 Gre : 56/гы; 
for(iz0; 1 « rwperwd; i**) ( 
рак (ги); 
МИА Ри о Aa == 00) 2 mw/H * nw/8 + 
umm (w48 == 2 гема : rw/8 + | ); 
} 
dre =" rwperwd; 
count =-= |Í; 
} 
} 
//trash extraneous bytes 
ШІГІ Ссоопсх6); 
) 
ШПӘПТОТЕ( ) { //get ascii description 
int "m 
n = bleft = 0; 
а = 
bitptr = 2; 
ШОЛ Т е ((textbuf (m++) = nextchar( )) іс 'Х0!) 
ННІ (57/06 - а); 
} 


char nextchar( 


char temp; 


Bat iv): 
temp =8 0; 
ШЕсіс0; 1 < 7) 
и (бол брег 
док 
bleft = 
а= ғо; 
} 


) 


{ //get next ascii 


i+ 


бш; 
read(fpr,ibuf,d); 


6; 


ewitch (bitptr) 


case 
Case 
case 
case 
сазе 


O Ul £& uu fth 


temo 
temo 
temp 
temp 
temo 


+) 


{ 


temp 
tempo 
temo 
tempo 
temp 


== 2 && bleft 


— 
O 
а 


u 

it 
O 
— 


(жо 
(жа 
(ха 
(ха 
(ха 


Qc Qc Qo O QO 


040) 
020) 
010) 
004) 
002) 


>> 
>> 
>> 
>> 
>> 


char of descrip 


break, 
огеак; 
break, 
break, 
break; 


1); 





Пе 001); break; 


сазе 7: temp = temo | 
Ao Atos „ап »bitotr); 
exit( ); 
) 
if (i<6) temp -«« 1; 
Е о, (Бїєї{к == | 232 (bitotr-1) == 6)) { 
бубрег = 2; 
bleft =- 1; 
art, 
} 


return( temo  ); 
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EDF Патау 197/7 СПЕ 


BESCRIPTION 


edf (-)í(«Hfn»] | (-Jí«Hfn»] t«num»] | («fn») 


Bar 1s am interactive font editor which provides the ca- 
Babıtıtvy ої creatina and maintaining fonts. If given no 
arguments, Edf enters a create mode. A filename, 1 
given is assumec to be the name of a diaitized font 
files otherwise», a leading "=" indicates that <Hfn> is a 
vector formatted font file that requires conversion to a 
diaitized form before the editing function may proceed. 
EEG point 51276 is not specified as an optional third 
argument, a vector formatted font will be digitized at a 
10 point size. The term "current character" (cc) is the 
pointer to any character position in a font. The char- 
acter denoted by cc may or may not be in the character 
buffer at any specified time. A user's manual [Ref. 7 
gives a complete cescrintion of Edf and its use. Brief- 
ly, the available commands аге: 


<number> set cc to «number» 


шие increment;decrement cc 
3 ada a character to the font at the cc 
Ес е change lines s through e of the character at 


cc; prompting for each line 
Я се delete characters s through e from the font 


е се edit lines s through e of the character at 
CC: сотре па tor each line 


f turn on/off a switch displaying dimenstons 
ОТ tne character at ce 


is e fn include characters s through e from font fn 
fn must be compatible; remembers fn 


| s e list lines с throuah e of the character 
IRCE 
п display the font decription and 3 table 


reflectina the edit status of every character 
in the font 


о enter an interactive module to change any 
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Domtezcharscterzsdıimension or font description 


EDF EDF ЕВЕ 


а quit, warn if changes have been made but not 
written out 


5) 5 e shift limes s through e of the character at cc 
r left; right, up, or down one pixel and 115: 

U lines s through е 

а 
w fn write out font to fn, then quit 


<rubout> kill any command being executed without 
«break» exitina the program 


Bare eromots with the octal value of cc followed by a ">" 
ema questions "7" any illegal commands. Commands to 
change cc may be ргерепдеа to any other command, and the 
effect is to change СС and then execute the command. 
Additionally, "f" may be prepended to any command. 
Numbers mav be in decimal or octal (leading 0). 


ME S 
<fn> may be а runs) pathname; otherwise, 
meeeronts.01i/font/” is prepended to it. Digitized 


Hershey fonts are placed in a temporary file named 
ШОО tonts.01/HFONT", 
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EDF 


Ж 


EDF EDE 


Baefine error return(1): 


int readfp, writefo, 
int ptsizes 

Int pid; 

int freenode; 

int infont: 

int мг? Таз? 


int wr; 


int max; 

int ht, maxw, lht; 
Ent b5blkc; char *bytc: 
int edit; 

int delete; 

Est tht, tmaxw, tliht; 
int dim; 

int include; 


Nt rw; lk, rft; 

Met Dot, bytes, Orc? 
int 5, е; 

int ine 


int с, реекс; 
ШИТ! first, lasti 
int chmod, 

int *n; 


ШӘС sgQgtty[3]; 
int savetty; 
fete onintr(); 
auto *charcdcef, *p; 
char cstats 

char сез 180); 
бог три 136! ; 
Char tbuf (40001; 
Eat har t256];, 

int fhdr [256] ; 
struct node { 


int code, 

char *def; 

int nsize; 

Char stat, 

struct node *next; 
1 115: (129); 
Struct node *head; 
struct node хама11; 
struct node *current; 


ле ен аег сгтовог5 

//Hershey font point size 

//Child process id 

//ptr to next free node in 1115! 
//current character 

Метла У 9. increrented on 
//any change to flag a quit without 
PUE e ` 

УТ ас Ко Тг off displaying of 
MANSO NOS UNES UNS file writing 
// 5326717 used to denote base node 
//tont dimensions 

//block:byte counters 

//set to 1 when in edit mode 

lpia neck ina for empty fontfiles 
//temp font dimensions 

//char aim diplay control switch 
//flag preventing access to 1115: 
//during an include command 
//character dimensions 

/ / " " 

//command arguments 

Ие огге character definition 15 
//ın character buffer, 0 otherwise 
//characters on the command line 

и ео 5 in Character buffer 

//\ if char in buffer was modified 
//integer pointer 

//0, otherwise 

ОШ Г ег tor ctty (11) 

//rerminal status 

//address of interrupt trap 
//character pointers 

дао е "Status ot char in char buffer 
//holds font description 

//ouffer for геаа(ТГ) 

//character buffer 

//har table of edited/created font 
//temp hdr table during an include 
//а node holds info on a sinale 
//character stored on the 11:56 
//character code 

Piotr to char definition 

//size of new definition 

A Status Of meooıfıeation 

//ptr to next noae in 1115: 


„драг о. head of | list 


//otr to next free node 
//ptr to node found in FIND 


LOS 





struct node *insert();//node returned by INSERT 
char rfontfilel40], //fontfile being included from 
char wfontfilef401; //tile being written to 
mae sfontfite (40) {"/.fonts.01/font/"}; 
//pathname header of fontfile to 
//oe edited 
char п!зъг2е (51 ("10"); //default pt size for Hershey font 


main(argc,argv) 
int argc; char *kargvs { 
int 1; 
if (arge > 1) {//arguments=>edit mode 
if Caravti1) (0] z2 '-') {//digitize Hershey font 
if (агас == 5) (//check any point size 


if ((ptsize = atoi(aravf2))) > 42) { 
printf("point size exceeds 42"); 
exit(); 

} 


p = hfsize, 
СОО Cp, eset. = Эроса] tii) [= 'Х0';1%+); 
} 
Bid = fork() ; 
ши стръв !- 0 ) 
Мил не рта = мајке) ) ; 
else //create process to digitize Hershey font 
execl("makehf","makehf",argqví1]l,hfsize,0); 
readfp = open("/.fonts.01/HFONT",0); 


} 
else if ( агам[1])[0]) == '/' ) {//full pathname 
геааћр = ореп(агам [1]),90); 
) 
else H 
р = агам [1]; 
for(i=ł6;(sfontfileli] = *ptt) $= 'Х0';1++); 
readfo - open(sfontf1le,0); 
) 
edit = 1; 
) 
С); 
signal(2,onintr); //set interrupt trap 
while (1) { 
setexit(); 
ПАЛЕ ~ лизо> "‚infont); 
реекс = (peeke == 'Хп') 2 0 : oeekc; 
if (command()) { 
printf"); 
ов ке = = ) мплеббе=аекес()) :!= 'Хп') ; 
) 
) 
) 
mao tí) ( 
int 1; 
if (edit) { 


шиисгезсаетр > 0) fonthdrt); 
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else { 
ЭП с је mot foundNn"); 
exit(); 
) 
} 
else {//create mode 
zhdr(hdr); 
УУ РОЛЕ height 2 "); 


while((htzgetnum()) «0 ii| ht > 120) ( 
реекс = 0; printf("height ?  "); } 

эра Соо З 

реекс = 0; 

erıatt(lZmaxımum character width ?  "); 

while((maxw=aetnum()) < 0 tt maxw > 256) { 
реекс + 0; printf("Maxwidth ?  "); } 

Г ПГТ" Жа !xn",max): 

оеекс = 0; 

printfí"loaical height above baseline ? "); 

while((Ihtzaetnum()) « 0 ii lht > ht) ( 
peeke = оО ретаБ с“ ће 20 "); } 

meme rt wd INA", Ihr), 

реекс = 0; 


orintf("Tyoe in any one-line"); 

ВАСКО оте deseriotion, 1f desired.Nin"); 

getname (des); 
} 
max = 326/77; wrflao = 
head-»code - max; 
head=>next = 0; chmod 
include = 1; freenode 
ШЕ Г Опт = 0; мг = 1; 
Һеаа = 11151; avail - &llist [11]; 


e 
ne 


и и 
poa 
~ 


} 


anar (h) //zero a har table 
Wat hl]; { 
register int i} 
n = hr 
Тог (120;1<256:;1++) x*n**; 
} 


Шсесс() {//return next char in command line 
if (реекс ) ( 
с = реекс; 
реекс = 0; 
) 
else { 
с = getchar(); 
ШОО Г (с !- ' ') реекс = c; 
} 
return(c); 
) 


momencr({) {//read hdr table and font dimensions 
ШЕ 1) сһаг ts 
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read(readfp,hdr,512); 
read(readfp,&ht,o2); 
Beimttt"NnHeight ка  ",ht); 
ше (рес > 120 и, ће < 0) { 
orintfí"too high"); exit); } 
геза(геаадћр, тахм,2); 
printf("Maximum character width %d ",maxw); 
if(maxw > 256 i; maxw < 0) { 
ог1їпї* ("тоо wide”), ех С) 7) 
read(readfp,&lht,2); 
Brımtf("Logical height XdNn",lht); 
ШАКЕ > ht y. Iht < 0) { 
Semen too high), exit €);} 
seek(readfp, 518,0); 


р = des; t = 1; 

{огС(1=0; С != '\0';1++) { 
read(readfo,&t,1); 
*ott = t; 

} 


} 


ШОС сеспот() {//convert numeric string and rtrn value 
int 1,base; 


їі = 0; 
while((c = aetc()) == ' ') ; 
Ec »- '0' Х%5 с <= '9') { 
base - (c-'0') 2 10 : 8; 2 
Deekc - c; 
if (base == 10) while((c=astc()) >='0' 83 с<='9') 
реекс = 0; 
1 = i*base + с = '0'; 
) 
else while((c=getc()) >+ "0" 85% с<='7') { 
реекс = 0; 
| = пгразе + c= "0"; 
} 
Deekc = с; 
гегугп (1); 
else{//there was no numeric string 
реекс = 0; 
if (с == +“) return(»-2); 
if (с == '-') return(»-3); 
peekc - c; //c will be processed later 
return(-1); 
} 
} 
int command() { 


Veer eocess the command line: 
update infont 
check command arguments 
execute command 
Any oroblems ? return a 1; otherwise, return a 0 х/ 
register 1,); 
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"unt temo, с, п, һо, 16; 
Switch(temp = getnum()) { 


Case -2: //increment infont 
ІС (chmod) putdef()} 
infont++; 


OO zsenmoer= 0, 
break, 
Gase - 5: //decrement infont 


if (chmod) outdef(); 
infont--=; 

in с 0; chmoo = 0; 
breaks 


case -1: break; //no chance 


default: //ınfont gets temp 
РВС Спо порт се ї ( ); 
it? Ont = temp; 


in = 0; сћтос = 0; 
break, 


} 

ШЕН тоТопб « 0) infont = 127 //check for wraparound 
ШЕН“ Топ > 127) infont = 0; 

zue((c = gete()) == ' ') ; 

Bitch (c) ( 


case "а": //ada a character 
а Се), ce=Getchar();, getgim(); p=tbuf; 
“ог(120;1<4000;1++) хр++ = 07; 
bytes с (гиХ8 == 0) ? rw/8 : rw/8 * 1; 
intt; аат chmodtt*t. break; 


Басе "с": //chandge lines s thru e 
if (gchardef(readfp)) ( 

if (setse(ht)) error: 

sbase(); 

О = << | < е;)++) 
forítji=zfirsts j < last+first; j++) 

tbuffliı*bytestj) = 0; 

Фог(125; | <= e; itt) ( 
аиа 1); 
forli=zfirsts j < last+firstsj++) 


toufli*tbytestj] = getdef(),; 

} 
int+, estat с "п"; 
wrtiagtt, chmod+t+, 

} 

else errors 

break, 

ease "0": //delete char's S thru e 


if (setse(128)) error; 
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estät = 'd'; 


forflinfontzs; infont<zesinfont++) { 
яой а] == 0) continue; 
hdarlinfont*2]) = 0; putdef(); 

} 

in с 0; wrflaa**; break; 

case "е": //ecit lines s thru e 

if (achardef(readfo)) ( 
if(setse(ht)) error; 
сразе (); 
attyl(l,satty); savetty = sottyll)]; 
for(i=s; 1<=е;1++) { 


orien: Nessa “ју 
SOMA. Е ССОУ СТ Басу 5 
for(j=first;j<first+tiast;j+r) 

Пе сасе с секс“ е „косо бухбукег+ј)); 


Satty tli =) Savetty, sttyll,sqtty); 
printf("\n ую; 
ТОР | =firset>j<stirsttlast, j ++) 
tbuf lixcytest+j)] = getdef(), 
Petts Ne tT ва те; chmodtt; cstat = 'm’; 


} else error; break; 


case 'f': //switch char dimension flag 
Оте от о: ү; 
break; 


Басе "1": ИЕ пе ева 5 S thru е from rfontfile 

if (setse(128)) error; 
getname(rfontfile); 
Ое опот ех У. опе ОТА опи"); 
if(ttempsopen(rfontfile,0)) « 0) ( 

pode cannot ocen 4s",rfontfile); error; 
) 
саги Багі: геза (гето, паг, 512); 
read(temp,&thtrce); read(temn,é&tmaxwre); 
readítemo,8tlht,2); 
if (reject()) { 

ср те. сотез боје. "); 

Сру(#һайг,һҺаг); error? 


} 
ie пе осе = 0; 
сСз$їас = '1'; иг = 07 dre = 1; 
tortintont=s, infont<Se; infont++) { 
1f (gcharcefítemo)) putdef(); 
else if(ärc == 0) putaef(); 
} 
close(temp); wr = 1; 
ог (120; 1 << 7 1 + + ) ( 
оле тек ИОГ СУВОРО ТТ) = fhoriix2+1); 
} 
ог (те + 173 < 1087; 1 + +) ( 
Dana ro) = реп Соке; Баг [1%2+1}]  fhdrli*2*11]; 





include = 13; wrflaaqtts break; 


сазег "|": //list lines s thru e 
if (achardef(readfp)) ( 
if (setse(ht)) error: 
sbase(); 
for(i=s; ı <= е;1++) { 


Е миа sv 
for(j-first;j < last + first}; j++) 
ОЕ Коле сес, о 11 “Буез+11); 


} 
intti 
} 
else error; 
break, 
Fase 'm': //display font description and table 
р = des; 
СЕЕ ЕИ ОИ ОИЕ ИСУО паевегјлретлопгх“п ); 


else for(iz0;*o $= '\0'; 1++) 
ошесћаг(хр++); 
poutchar("Nn"); 


оры Шаға сы 0 1 2 5 4"); 
ET mc (Т 5 6 as 
КО реше ++) { 
if(i%8 == 0) { 
if (i == UJorint fC Vne00") ; 


ӨШСЕ DO )Brrmertl"\n0%o"si), 
Slicsemorime te NaZO 1D DC 
} 
pstat(1); 
) 
printf("\n\n! ' undefined xX unmodified  "); 
И included’); 
АЕ се | егес adc modified"); 


break» 
case 'n': //modify font/char dimensions 
его). © getchar(); 


getdim(); break; 


case 'a': Е, Магп t not written 
Моби За) { 
мг #1 аа = 0; 
Б ичеге); 
errors 
} 
exit); 
ease 's': //shift lines s thru e once 
if(gehardef(readfp)) { 


оеекс=0; temozgetc(); 
if (setse(nt)) error; 
sbase(); 





SWIECA (temo) { 


ease г: АТЕНЕ 
Фог(125; 1<=2е; 1++) 4 
lb = 0; 
form је нгоб, ) < first+tlast; j++) { 


hb = lb; p = СБОЯ БСухрукег+ји 
ІТ (хр & 01) Ір = 1; else Ib 
хр =>> |; 

if(hb) жр =! 0200;е]5е яр =& 0177; 


|| ns 


0; 


) 
} break; 


case |’. Ж ке С 
$ог(1=$;1<=е;#1++) { 
hb = 0; lb = 0; 
for(jzfirst*last-i;j»-first;j-7-7) ( 

о = &thuf lixbytestj] 
if ((1508&0200)>>7] hb 
E A E E Хр 


ІШ; = 
01; Tb = hb} 


|| th se 


} 
} break; 
ease ше / Ицо 
Тог(1=5; 1<2е; 1++) 4 
КЕСТІ == 0) continue; 
Or rst? рог госта ,;)+%) 
touf(CiW-l)*«bytestj) - tbufl1*bytes*]); 
) 
При tıest,uj<tirstt+tiast;j++) 
tbufle*bytest)]) = 9; 
break; 


слабе о: //down 

fortize; 1>=8;1--) { 
if (i == ht=1 ) continue? 
for(j=žfirstżj<first+last;j+t+t) 

tbufl(i+1)*bytes+tj] = tbuflixbytes+tjl $; 

} 

for(jsfirst;j«first*last;j**) 
tbuf(s*bytes*j] = 0; 

breaks 


default: error; 


) INS che shift 
for(i=s; i <= e}; 1++) { 

РР АИБА 1207 

Того те резба р < frest+lasts 1 ++) 

ИЕ ООУ С сс сс с", ри 11 хругез ту); 
} 
іп%%; wrflag**; chmod**; cstat = "т"; 
) else error; break; 





case 'w!': //write to wfontfile and auit 
if (chmod) cutdef(); wr = 0; 
getnamelwfonttile); 
//no writina to file being edited 
if € cmor(wfontfile,sfontfile) 141 
emoccwront file,"HFONT"™) ) { 
ПРАСЕ та Сога to existing file “); wr=l; error; 


пе о = сгезв о Се топе Те, 0666) ) < 0) 4 
printf("file "); error; 
) 
A dp | 
write(writefe,fhdr,512),; //write blank hdr table 
write(writefp,&ht,o2); 
write(writefo,&maxwre); 
write(writefp,&1ht,2); 
С кс = 1; oytc = 6% p = des; 
forn I-O хр f= "МО"; те) ( 
write(writefo,ott,1); Битр (1); 
} 
write(writefp,p,1); bumo(!); in = 0; 
for = О infont< 128; infont*t) { 
ПА ис телехеј: == о) continue», //no char here 
else if (find infont)]) {//бет it from |115: 
if (current-»nsize == 0) continue; 
Нисе tim tonteel=(ndelintont*c} &03577);€Colkc<<8); 
Marin tontre+1] = руће: 
write(writefp,current-»def,current-»ns12e); 
bump(current-»nsize); 
free(current-»def); 
) 
else if (edit) (//aet it from file 
1 асћагде (гезатТр); 
p tbuf; 
Moore le теРОопохое)8205/7): (бікссє«8); 
fadrtinmtfomt*e+!) = bytc; 
write(writefp,o,8); bumo(8); 
ро У ре + 3; 
Ме = Сетогог бубе оте); 
те оукегхаге); 


HU H =. 


} 

else error; 
} 
seek(writefo,0,0); 
write(writefp,fhdr,512); 
delete = |; 
//remove any empty fontfile 
т ре, = 2) if (fadrlil > 0) oelete = 0; 
if (ае!е!е) (61 кс = byte = 0; unlinkfwfontfile);} 
РИБА пио кехоЈегбуке); 
exit(); 


essen: break; // sync 





default: 
PRD Lc 
errors 


! 


СІ; 


) 
return(0); 
) 


Bumep(i) //running count wfontfile size 
//in blocks and bytes 


int i; { 
mt (bytcti >= 512) { 
По ке t Covtet+i1)/512).< 255) 4 


б1кс =+ (бругс+1)/7512; 
бе = (русе јлоје; 

) 

else if (byteti > 52768) { 
ГОГ ге боб Бра"); ‚exit(); 


} 
else bytc 25 1; 
} 
else bytce =+ j; 
) 
int cmorípl,pe) И Чо! Із pg, otherwise, 0 
char хрі,хреї 4 
for( 7; 5 ) 


{ 
= хре++) гебигп(0); 


е (рі: 
if (кріз% == '\0') return(l);5 
} 
) 
КО гле) //сооу pl to pe 
int ınl,tnd; { 
mat 37 
Ког(120;1<256;1++) «по + + = 21 + +; 


} 


ppend(ol,pó) //prepend pe to pl 
сћаг р1(), ог); 4 
char 201, ход, tí401; 
ШІ - рі; ба = +; 
while((*b2++ = хЬ| ++) 13 "ХО") 5 
be = pes; bl = pl; 
while((*bl** = хро++) іс 'ANO') 5 
be = tz ble-;7 
moe ((*b1l++ = *o?ott) $= “ХО") 3 
} 


int reject() { /^/rtn 1 if files are incomoatible;ow, 0 
ВЕ i: ht |, tiht $= |ht ji tmaxw > maxw) return(1); 
else return(0); 

} 


onintr() { //restore environ. reset int (гар 
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зала (е, оплпЕг); 


if (savetty) { 
sgtty(1l] 7 savett 
savetty = 0; 
stty(l,satty); 
savetty = 0; 

) 

reset(); 


} 


int achardef (fo) 
/x Get the character 
Earacter, put it in 
blank rows, 
mt Тр; { 
register 1,]; 
register char 
ШІ (in) 
foc tindlinfont) 


хро; 
return(1); 
2,2 


у; 


definition for the current 
the char buffer, expand 


and disolay necessary diaanostics х/ 


//1t's already tnere, rtn 1 
include) { //it's on the +list 


if (current=>stat == 'а') { 
printfí"deleted "); 
return(0); 
) 
tp = tbuf; 
chardef = current->def; 
*tpt* - rw с *chardeft*; rw -& 05277; 
ги 2! (ktp+t+ = *chardef**) << 8; 
ШЕ (гы <= 0) { 
Beate io raster width ха ",infont:rw), return(0); 
} 
bytes = (rw%8 == 0) ? rw/B : rw/B +1; 
иде = је = «саге ћ+љ+; ТЕ =8 0377; 
ГЕ с)! (херія = «хсћагјет++) << 8; 
ktptt = rft = жсНагае# ++; rft 2% 0377; 
rft =) (xto+r+r = хсћагдет++) << 8; 
*tott - drc с *chardef**; dre :% 0277; 
drc +, (#ур+ + = xchardeftr) << 8; 
mt (dre == 0) { 
ЕСПЕ printable "); 
return(0); 
) 
не = пе = (orc t rft); 
цер i < rft; 1++) 
for(j=0}; j < bytes, j++) *{р++ = 0; 
for(120; $ < дге; itt) 
for(j=0; bytes; jtt) *tott - «хсћагдје ++; 
mor(i=); i < bot; itt) 
for(j=0; j < bytes; j++) *tp++ = 0; 


uf 
return(1); 
) 
get it from the fi 
memchnadgrlinfontxe)] == 
ЕБІПЕТ undefined 
) 


(wr 28 dim) echardim(); 


le 
0) 


Ж 


{ 
return(0); 





Bear = (аг [Г тїт ontz] & 0177400) »» 8) !- 0) ( 
Е 03/1; 
сеек(ћр,ј, 3); 
seek(fo,hdrlinfont*2+r1],1); 
} 
else seek(fo,hdr(infont*2t1),0); 
read(fp, &rw,2); 
ШІ (ги <= 0) 4 
тет Со raster width ха "‚simfont,rw), return(0), 
) 
Меза (тр, 61к,2); 
read(fp,&rft,2); 
read(fp,&drc,2); 
sr (dre == 0 ка wr) { 
printf("orintable "); 
гегугп (0); 


} 
об = ht -(drc * rft); 
бес = (гила == 0) ? rw/8 : rw/8 + 1; 
їр = соці; 
жірж% = rw 8 0577; 
кері" = (rw 2 0177400) >> 8; 
Enc = |k & 0577; Atp++ = (1k 2 0177400) >> 8; 
жр++ = rft 8 0577; жр++ = (rft & 0177400) >> 8; 
вно» = Ore 8 0577; *tp+t+ = (dre & 0177400) >> 8; 
for(i1*0; i « rft; itt) 
Bomoz0;—| « bytes; 1++) *tp++ = 0, 
оно 120; 1 < агс; 1++) 4 
read(fp,1buf, bytes); 
for(j=0; | < bytes; |%%) *«tot+ = ibuf lj); 
} 
for(i=07 ії < Бот; itt) 
for(j=07 j < bytes; j++) Хбр++ = 0; 


Mar £S dm) pechardimí); 
return(1); 


) 
int setse(x)  //set command aras s and e 
int x; ( 
peekc = 0; 
S = де пит(); 
ШІ (s < 0) { 
5 = 0; e = xel; 
return(0); 
} 
e - getnum(); 
if (e < 0) ет 5; 
if (е < 5) error; 
ШОО О >= x |, е >= х) 2% x == 128) error; 
Ша > х | е > х) 55 х == ht) error; 


Beturn(0); 
} 


mest (tmt,byt) 
По byte, bit by bit, (0:>!.!, 1ј=>'0' 
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char хіть, Бух; { 

printf(fmt,0200&byt?'0' 
ПОЮ Бу 70° 
ОМА вУєо'О! 
0002&byt?'0' 


ООК ОУ о“ 
;002805byt7'0" 
‚00048 byr?'0' 
1 ПОП1ЕБуЕ? "0" 


- - = - 
фа фа 90 00 
- = - - 


ee 99 во 99 
- = - - 


) 


mat find(i) 
ment Current character is оп 11156, rtn 1 and 
M Current points to correct node; ow, rtn 0 
int 1; ( 
register struct node *otr; 
ptr = head; 
while (i > otr->cooe ) 


ptr = ptr->next; 
if (1 7-7 ptr-»code) ( 
Current - ptr; 


return(1); 
) 
else return(0); 
) 


getname(file) 
//get name endina in '\0' and stick it in file 


char filel); { 
ши Тте( (с = aetc()) == ' 1) ; 
mete f= "Хп') { 
и. tile; 
do (4 
хр++ = с; реекс = 0; 
} Ае ет сессеб)) := 'Хп'); 
foo = 'N0'; 
} 
} 
putdef() { 


КООШ definition in char buffer on llist 
motfindir:nfont)) !node(current,infont); 
else ( 

Inode(insert(avail,;infont),infont); 

1+ (freenode > 128) ( 
printf("overflow"); exit(); 

) 

аматі = &llistí(í**freenodel; 


) 


осе об гук) //do the work for PUTDEF 
оС: node *otr; int К; ( 
register int i,j,sregister char Зер; 
int clear; 


ptr->code = К; 
if (cstat == 4”) { 
ptr=>stat = cstat; 


return? 


> = - = 
~ ә = ~ 





} 


} СОПГС Б(|апс rows at too and bottom 
rft = bot = 0; 
1 = 0; clear = 1; 
while(i < ht && clear) { 
ПО = ог «bytes t 8; j*t) 
if (tbufti*oytes*j] !- 9) clear = '\0'; 


if (clear) rft = 1+1; 
itt; 
) 
(i < ht) { 
1 = htwl; clear = 1; 
while(i > 0 88 clear) { 
Па) = 970) < bytes t 9; j++) 
ида АСУ КЕЗО = о) clear = "Х0"; 
if (clear) bot 2 ht-i;5 
==; 
} 
} 
Gree = (arc) ? ht =(rfttbot) : 0; 
if(drc == 0) rft = Ik = 0; 
NONU otr-»def - alloc(bytes*arct*8); 
*{р++ = ги & 0577; *tpt*t с (ги % 0177400) >> 8; 
ШЕБІ = |С & 0577; *tor+ = (Ik 8 0177400) >> 8; 
КОКЕ = ге & 0577; *tpt*t = (rft & 0177400) >> 8; 
же = Gre < 0577; хтр++ = (dre & 0177400) >> 8; 
Шу =гтб, 1 Ss rft*drc;it*) { 
гог | 58; j < bytes + 87 j++) 
xtoł+ = tbufliłbytestj}); 
} 
ptr=>nsize = B+drcxbytes; 
ctr-»stat - cstat; 


struct node *insert(a,i) 
ЕО a node for PUTDEF to use 


} 


struct node ła; int 1; { 
register struct noce *ptr,*temp; 
temo - ptr - head; 
while( i > ptr->=>c00e ) { 

temp - ptr; 

Scr = potr-»next; 


ШІ (рег == 
а"?пехі 
head = 


head) { 

= head; 

а, 

} 

else { 
а->пех 2 temp->next+ 
temp=>next = а; 

) 

a=>stat = a->def 2 a->nsize = 0; 

гегугп (а); 


sbase() 4d //set horizontal starting point for char def 
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first = 8; last - bytes; //normal char, default 

if (bytes > 9) { //too wide, get a starting pt 
Brintf("\ntoo wide... Starting where ?"); 
oeekc = 0; 


while((last = qetnum()) < 0 || last >= rw) { 
реекс = 0; printf("where 2"); } 

оеекс = 0; 

last = (last == 0) ? 1 : last/B + 1; 

first = first * last-1; 

last = ((bytes+8-first) > 9) 7 9 : bytestB-first; 


} 


getdef() { //aet one byte of a definition 
int mask,i,), 
реекс = 0; 


mame (ec = getc/)) l= "0" && c 1s '.') ; 
реекс = с; 
i = j = 0} 
mask = 0400; 
while((j++ < 8) ХЕ ((стаекс()) == '0' ji c == '.')) 
peekc = 0; 
ШЕ ((тасс = mask>>1) 448 с == "0!) 
i =! mask; 
} 
returnt1); 
) 
pstat(1) //print char status for edit table 
Ot 1; { 
mo cfind(i)) ( 
Switch(current-»stat) ( 
сазе а: юго” D ");бгезак; 
сасе. RnR PLEINE" TA"); break; 
case "па пргупът е” М Y) break; 
) 
} 
else if (hdrtixe] == 0) printf(" "чу, 


else printf(" Хе UM 
} 


pcharaim() { //disolay char dimensions 
int 1; 


muti = hdrlinfontx*2) 2 0377) == 0) { 
printf("undefimed"); return; 

} 

вен ("ги Жад см ха ",гиы,1); 

НА ги == 1) printf("1k Zd rk ла",1к,1К); 

else if (1k) { 
ШОШО ин = = ем арте “пе Ad rk Xd',1k,0); 
else printf("1k Ad rk ха", | К,ги =1=1К); 

} 


взе Drintf("1k 70 ге Zd",lk,rw-1); 
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Ee CU desint Za ";htrlht): 
О “ЕС ХОА“, ГЕ, гс); 
} 


getdim() { 
Их Look for a number and/or name. lake both as 
a request, rejecting invalid reauests with a '?' 
icon "cr and return to the main command loop */ 
int irjr fonts char пате (201; 
En-c»dr[infont*2180577; font с 0; 


while (1) ( 
peerc = 0: 5mntf("NnZ$o-» ",snfont); 
1 7 getnum(); aetname(name); 


if(cmpr(name,"t")) break; 
temor name» 1 )) instr); 


else | (стег тате, infont")) 4 
inont | = астпагадет гезатр); 
) else ії # (стрг (пате, "а" )) { 
ТОСАП” сес); 
реекс = 0; аеїпате (аеѕ); 


) else if(cmpr(name,"o")) ochardim(): 
else if(cmor(name,"f")) 

ШЕР 20 maxw 40 Iht ОУП", НЕ ,тахи, 1 НЕ); 
else if(cmpr(name,"ht")) ( 

Dasein ил = 1; wrflagtt; ) 

else printf("\n? "); 


Ше зе 1 Е (спрг( пате, "1Н+") ) ( 
ДЦ <= ht){ Iht = i; werflagtt, ) 
есе руп (Г "Мєл? ”); 

) else 1#(стрг(пате,"тахы")) { 
if(1 <0 15 1 > 256) {maxw = i} мг#1ад++; } 
else printf("\n? "); 

) else if(cmor(name,"cw")) ( 
if (gchardef(readfo)) ( 

1# (1 <= гм) ( 
ПОРИ олха) = 0177400; 
горе s 0577; 
Ik Гат, font = 1l; 


СЛ ео ИОА); 
Ре ИЕС лом ao. , [hdr [infont)=1)); 
} else if(cmpr(name,"rw")) { 
if (gchardef(readfp)) ( 
ifli <= тахм) { 
rw = 1; font = 1; 
iflrw < j) { 
пае попе хе! 
hdriinfontx2] 
Yk = 0; font 


& 
& 0577; 


0177400; 
1 
1; 
) 
фе еее»: 
Ше | зе вр! ПЕРО” гы пом ¿dia , [rw = 1)); 
} е1ѕе 1 # (стог (пате, "1к")) { 
1" К(аслагде (геадето)) { 
1# (ги == |) { 
ТЕЕ Е ЕО си СОАТЕ 15) 
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else print (Nn? 7”); 


} else if(ì <= rw-j) ( ік = i} font = 1; ) 
else printf("Nn? "); 
} else printf(" Ik now 4dNn ,.(lk = i)); 
} else if(cmor(name,"rk")) { 
if(achardef(readfo)) { 
ЕМ == j) { 
1 (1 == 0) ; else printft"\n? "); 
} else if(i <= гит|) { 
if(itlk 27 rw-j) ; 
else { lk 7 rw-i; font 7 1; ! 


} else printf("\n? =); 
} else printf("\n? ")3 
else printf" \n? 7); 


} 
if (font) { 

wrflaatticstat = '"m';putdef();1in = 0; 
) 


) 


maser) { //disolay instructions for GETDIM 
orintf("Modifiable FONT dimensions аге:Хп"); 
orintf("height=- 'ht' max character width= 'maxw'"); 
апе" logical height= 'Iht'NnNn"2; 
printf("Modifiable CHARACTER dimensions are:\n"); 
Nit ("raster width- “гы! character width- 'cw'"); 
Әріп: ес" left kern- "ік! iaht kern ге nin"); 
МСЕТ( Туое '1' for instructions, 'o' for "); 
Emntf("dQ:mensions of character in buffer.Nn"); 
Breintf("To move to another character, update "); 
ЕЕС" і попе" Хп"): 
spnntf("NnGet font dimensions with 'f'. "); 
Enuntf('"Modify font name with 'd'. If you're adding"); 
printf("a\n character, make changes in this order only:"); 
ПС "реми, "Ik! „ then 'cun!.\n"); 
gEpwuntf("Nnimpossible modifications are rejected...."); 
printf("some example inputs might be\n"); 
пра ГОР ht!) "065 infont', "1", ог "0 1Ik'\n\n"); 
EDtfC You'll] be prompted with a '-»'. "5; 
printf("when you are finished, type 't'... \n\n"); 

} 1 
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PRFONT le May 1977 PRFONT 


DESCRIPTION 


Brfont t=-<number>] «fn» «fn» ... «fn» 


Prfont takes font names or full pathnames as arguments. 
For each argument, Prfont displays the font, setting the 
characters in the character code collating sequence. 
Character positions are set and appear as they would if 
used in documents. The fonts are displayed in a 9 inch 
merizonta! field which may be adjusted by an optional 
leadina argument, a decimal nunber between 1 апа 264, 
The default field widtn (9 inches) is 216 bytes. 


MILES 


<fn> must be a digitized file. 
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PRFONT PRFONT PREONT 


define SPACE 1 // one 1/4 inch vertical space 
наефіпе ТОР 230 // top margin 

define PAGEHT 14100 

int roWws FOWS7 

int linecount PAGEHT; 

int pagewth; 

int prdev» pldaev, infont+ 

m ht, тахи, lht, fo} 


int 
int 


head, tail, nodeptr; 
гего (1), һаг (256); 


char хір, хр; 

аг ҒҒ 014; char nl! 012; 

сћаг ћеадег [40] ("/.fonts.01/font/") ; 
Баг orouf{132], р! Бо? 1206041; 


struct cnode { 
int сс; //char code 
char *optr; //-> 154 raster line 
char *lotr; //-» next raster line 
int rw; raster Ine width 
int bytes; //oytes per raster line 
int lk; //left kern 
int rft; //rows from top 
aut Arc, Пара пон count 

ди 5 с (128); 


struct cnode ха; 
struct cnode *fset [128]; 


mal 


nlargc, argv) 

int argc; char **arav? { 
register int 1, argptr; 
блог со; 

aroptr = 1; 


| lCordev=ooen("/dev/spo",1)) < 0) { 
orintf("cannot open orinter");exit();) 
и (е се = оргеп("/сеуџ/гџо",1)) < 0) 4 


printf("cannot open plotter");exit();) 
if Сагсу (1) (0) == '-') {//reset pagenth 


сасе пл = абојлсб сСагам([1)[:!] ); ао = 1; ) 
else (4 радемећ = 216; go = 0; } 
init(); 
ш |е(-==агас t= go) {//process all files 

о = агам [агар г+а0); 

ШІ ( о с5 /' ) 4 //full oathname 


if ( (Тогорег(агам (агар г+аој,„0)) < 0) 4 
printf("cannot open Zs",aravíaraptr*aol); 
exit) ) 

printf (S оре по а о а 


,„агам (агар г+ао) ); 


) 

else ( //prepenc /fonts.01/font 
Sorry - lo, cHhesder li = *or+) f= *\NO's i++) $ 
++ ((Тр=ореп(ћездјег,0)) < 0) 4 


orintf ("cannot open %s",header);exit();} 


ше 





с срепеа..... ,ћездек); 
} 
infont = head = tail с nodeptr = roww = 0; 
read(fo,hdr,512); read(fp,&ht,2); 
кнеза (тог стекле), геза(Тр,“ | НЕ ,с); 
eneckt),e7/eneck for bad font file 
ДЕ ht <= 82 ) ( 
//set vert spacing 
if (ht <= 40) rows = 2; 


else rows 2 3 ; 
) 
else rows - 4 ; 


//рсЫк 1*# font ocisolay won't fit 
if(nroom(rows*ht + 40)) oaaebreak(); 
още prbuf; ог 107 1 < 6071 + +) хр + = ' '; 
Шагал 5 0; (2р+ Е = ага агар г+ао!] (1]) := 'М0';1++); 
хр 2 nl; 
//center, write font name 
write(ordev,orbuf,1t62); 
for(120;1«205;itt) write(oldev,zero,oO); 
linecount =+ 25; 
while (1) { 

getrow(); 

putrow(); 

1f(1nfont » 127) break; 
) 
Ehose((fp))copentf("closedNn"); argotrtt*; 
//1f need be, pcbk 
if (nroom(SPACE*2)) oagebreak(); 
else soace(SPACE*2); 


} 

exit(); 
} 
ТТС) { 

register int i; 

Bero1-051«1908;1**) fset [1] = &clist [117 
} 


pagebreak() { //oage eject 
int 17 
char err; 
err - cvers(pldev,020); 
it ( err -: =] ) { 


emt tl’ imvalid filedes in paqebreak\n"); 


exit(); 
} 
for (1z0;1«TCP; 1**) write(pldev,zero,2); 
linecount = TOP; 
} 
getrow() ( //get a row of chars to olot 
if(tail) { 
roww 


fset [++ta11]->bytes; 
t 


head = а11++; 
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} 
while (1) { 
if(getdef()) { 
1? (гоми + fset{tail]->bytes <= pagewth) 
гони =+ fsetíta1l] -»bytes; 
else {tailors ++infont; break;) 
if (++infont > 127) break; 
ба11++; 
} 
else if(+t+tinfont > 127) break; 


} 


putrow() ( //plot the row of characters 
register int h,i,1; int t; 
struct cnode *otr; 
for(h=0; h « Бе; Н+ +) { 
р = &plbuf [241]; 
ptr - fsetí(t гс head)]; 
#ог (1 =Һегаа/; 1 <=1а11;1 ++) { 
IS => arc) { 
ifn >= Ot R= 2rft ES h < ptr-»rft*ptr-»drc) 
//lop-» next raster line 
lo = ptr->lptr; 
//do it by bytes 
for(izÜ0r;i«ptr-»bytes;1**) 
хр + = хр + +; 
//uodate lptr for next oass 
otr-»lptr z* otr-?bytes;7 


) 

//blank line 

else ГРог(1=0;1<рег=>бубе5;1++) хр++ = 0; 
} 
//blank character 
else for(ı=0;, ı<ptr->bytes,it+) хр+ + = 0; 


ptr = fsetl++t); 
} 
//olot l raster line of row of characters 
write(oldev,plbuf,roof(roww*20)); 
} 
//row plotted, plot some white space 
for(hz0;h«5;h**t) мг се (р1 деу, гего, 2); 
linecount =+ htt5; 
//tree bytes in reverse order 
for(i-ztail;i»-head;i--) 
if(fsetí(i)]-»ootr) 
free(fsetí(1] -»ootr); 
} 


int getdef() { 
Mato olkc,bytcr register 1; 
лаг ъп опеке) ) ( 
бікс 2 «(ћаг 1 попзо) 601 77400) >> 8; 
ЕІКС -% 0577; 
пика = harlintontret]], 
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CENA EROS 1n blks and bytes 
seek(fp,bIkc,3); seek(fo,bytc,1); ) 

else seek(fp,bytc,0); 

getnode(); 

а->сс = infont; read(fo,*&a-»rw,o0); 

read(fp,&Ra-»1k,20); read(fp,&a-»rft,2); 

read(fp,&a-»drc,óà?);: 

а">буҒев 2 (а->ги%8 == 0) ? a->rw/8 : a-»rw/8*1; 

if€fcheck()) { //check for bad char dimensions 

if(a->drc) { //need bytes?, call alloc 
if((iza-»optrza-»5lotrzalloc(a-»drc*a-»bytes))«0)( 
pat ncuUteoummemornpry.. s." )v 
orintf('"use a smaller pagewioath\n"); 
exit(); } 
read(fo,a-»lptr,a-»drc*a-»bytes); 

} 

гесиго (1); 

} 

) 
гегигп (0); 


) 


getnoae() { 
W подјерег > 127) 4 
orintf("overflow"); exit();) 
а = #ѕеї [подергг+ +] ; 


> орсг - a-»lptr = 0; 
} 


Maer oo f (x ) 
int x5 d //send plotter even * bytes only 
1Е (хе -- 0) return(x): 
//for some reason 264 bytes crashes program 


1#(х 22 265) return(262); 
хр = 0; return(+t+x); 
} 
space(x) 
ших, { //plot x 1/4 inches space 
uot 1; 
{ог(150;1<х*50;1++) writelpldev,zero,2); 
linecount =+ x*50; 
} 
check() { //orint then exit on bad file 
ЛЕ < 0 i maxw < 0 |! Int < 0 !! 
ШІ > 2255 || тахи » 256 !' |ће > ht) { 


orint C oad file"); exit); 
} 
int nroomíx) 
int x; 4d //rtn 1 there are not x plot lines 


Теге before bottom, otherwise, 0 
if(linecount + x > PAGEHT) return(1); 


1286 





else return(0); 
} 


memeck() { //1f bad chardef, rtn Ù to skip it 
//otherwise; rtn |. 
if ( (a-»rw«0 11 a-»rw»255) | 


Го (amr>rfrt<ü ,: 3->rftrt>255) 
i4 (a-»1Ik«0 ;, a-»1k»255) пи 


8 
ı Са->агс <0 a-»drc»255) 
) ( 
orintf("\ninvalid value for character 'Zc'WAn",infont); 
Ос л С" гг Ad\trft XgdgNtlk ZdNtdrc XdNn'",a-7»rw, 
a-»rft,a-»lk,a-»drc); 
return(0); 
) 
else return(1); 
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SIGNMKR 12 May 1977 SIGNMKR 


DESCRIPTION 


sianmkr <fn> 


Signmkr reads lines from <fn> and performs limited text 
сгосеззтпа. It sets the text in <fn> in the selected 
fonts. Reference 7 provides detailed instructions for 
its uses however, a brief description of available com- 
mands is listed below: 


ESCf<fontname> Change fonts 
Bote <text> Center <text> 


Boto<character code> Set the character indicated 
by the code 


ESCDp рагаагарћ 
ESCoQ pagebreak 
MILES 


<fn> is a text file interspersed with any of the above 
commands. 


are 





SIGNMKR 


#define TOP 250 


SIGNMKR SIGNMKR 


// top margin 


Adefine PAGEHT 14x100 

int гома? 

int sl 0; 

int pagewth 216; 

int linecount PAGEHT; 

int pldev, infont, in, base; 

mM ht, maxw, Iht; fo, inp rì 

int nodeptr, openbits; 

ЦК гесо (52), ћаг (256); , 

шаг хір, Хр, хе, яп, *ol; 

char esc 033; char blank 040; int с; 

ворог header[40]1 {"/.fents.01/font/"} ; 

г pbuf 1907, tbufI901], plbuf [264) ; 

char fmark (128); 

char fontname (20]J, ocharl10); 

struct споде { 
шие сс; //character code 
char *optr, //=>1st raster line 
int rw; //raster line width 
int bytes; //bytes per raster line 
Nc t "M; //left kern 
Шат гїї; //rows from top 
met аге; //data row count 

Не 15. (128); 

struct cnode жа, xptr, 

Struct cnode *fchar[123); 

main(argc, argv) 
int argc? char Ххагам; { 
Ш Сагас < 2) exit(); 
else 1! ((јуогорепагам(1ј,0)) < 0) 4 

Srimtt© cammot coen As",argvii]l), exit(): 

} 
їгїї Ө); 
while (сесіпгп()) putin)? 
meeymtf("*closed\n"); exit(); 

} 

мес) { 
register int 1; 
if((pidev=onen("/dev/rvo",1)) < 0) { 

printf("cannot open plotter"); exit); 

} 
Мо 1=0;1<128;1++) Тсраг (1?) = 0; 
n © Етагк; Фог(1=20;1<128;1++) хр++ = «|, 
89-705; cfont("SAILI0O"); //default font 

} 

се ос) { //rtn 1 if there's a line to 
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//be plotted;otherwise, 0 


Char к; 

t = tbuf, 

к = 0; 

while ( ((Xt = getch()) іс 'An') 88 

UNO Y YA 

crt = 89 ) ( *t = *An'; break; } 
wit, 
} 

ПИ ке == '\0'’ ) return(0); 


else returní(l); 
y | 


putin() { //plot as much as can fit in PAGEWTH 
register int h,i;: 
roww = 07 pagewth = 216; 
if ( s] == 0) 85) = 29; 
= tbuf, р з рбиї; 


while (хр 12 "Хп') { 
О Е 1г бСезсваг()) break; ) 
еее) break; 

} 

mo = '\n'; 


mitt == thut) return? //null line in input file 
check for room 
if (огоот(ће+(ћ /10+1))) радербгезк(); 
for(hz0;n«ht;h**) ( 
ol zo€plbufisi); *ol - O 
] 


openbits = 8; 
ptr с тспагік(р = Бро?) 
while (ko != '\n') { 
Ре ен > си; 
if (ptr=>drc) ( 
iflh >= otr->rft && h < otre»rfttptr-»drc) 
i -h - otr-»rft; 
lo = otr=>00tr + 1*ptr->bytes; 
while(r > 90) ( 
shirt (lo Ff =- 8}; } 
} else { 
lp = zero; 
while(r > 0) { 
shift(); r =- ё;) 


• 
, 
e 
, 


) 
) else { 
Ме Zzero; 
wnile(r > 0) { 
Sshift(), mr == 3} 
} 
рег = fcharí*x**p]; 
) 
/^/plot one row raster line 
„rite(pldev,plbuf,roof(roww+ts1%#%8)), 
} 
//plot some white Space 
tor(n=0;h < nt/10+1;h++) 
write(pldev,zero,2); 





linecount =+ ht+(ht/10+1); 
sl = 0; 
} 


eschar() ( //esc- special characters 
int i, hài, Space; 
char tt, *tb, *tes 


if (t == tbuf) ( 
ecw = ktt) == "ТГ! { //font chance 
п = Топ пате; # ++; 
while (С (Хп = aAttt) $= § § 88 яп 1= "Ха" ) 
n+t+; 
tt = жп) 
xmas У о не розе Гопетпатеј; 
СЕЎ SI AN Y 


Е ог return l); ) 
) else if (с == '5') t //need Space 


n = осћаг; %++; 
base = Crt == '0') 2 84 : 10 ; 
while (num(*n = At)) { 
NEAR E } 
У 
hi = oct(ochar) * ht ; 
if (nroom(hi)) { 
pagebreak(),;, t = tbuf;, return(1l), } 


tor (1=0,1<h1:1++) 
write(pldev,zero,2); 
linecount =+ бі ; 


eS EDUT? ел С Је 
Пи сет (е == “ao 1 //no aser equivalent 
ASIN не 


разеш- =- 707877 85% 10; 
while (пит((хп х хе)) ) ( 
ntt; %++; } 


an NOST rss) 
1 ососсстлаог)) » «1 28 < 128 ) 2 1 
: blank; 
Ше се if (с == rer!) 1 ¿center this line 
while (***tt == ° ') 7; 
to = t + 
ТК Я 
while (*==t == ' '); 
te = t}; space = 0; 
forít=ztb; t<zte; t++) { 


if Char (*t*c) ) 
Space -* hdrí*t*e] & 0377; 


else if (harí(040*2]) ( 
space -* hdrl[040*2] & 0377; 
kt = 040; 

} else { 


orintf("input error-- "); 
О uDndstunedecharacter...4cNn",*t); 
flushh()} 


131 





space = (space%8 == 0) 2 соасе/8 : ѕрасе/ 8+1; 
s] = 1352 - space/2; 
if (sl < 04) { 
printf("inout error-- "); 
Beuel Nttoo many characters to center\n"); 
flushh(); 


} 
ог (1307 <5 171 + +) plbufli) = 0; 
t = tb; 


{ 


“.. 


) else if (c == 
ЕС (с = ико) == 74) (//pgoreak 
pagebreak(); t 7 tbuf; return(1);  ) 
else if (c == 'o') (//рагадгарћ 
Фог (1=0;1<НЕ;1 ++) 
write(pldev,zero,ed); 
51 = 24 + (24 * ht/120);5 
pagewth = оадемећ = (24 ж ht/120); 
t - tbuf; return(1); 
) 
else ( 
pnt invalid character folowing "); 
Seat Бобо“. еј; 
ех1 (); 
) 
} else { 
ОГОО input еггог- "); 
ӘЛЕН а тама! та escape character... 4C",C); 
flushh(); 


- зе w O 


} 

) else if ((c = x++t) == *o') ( //no ascii eauiv 
п = осћаг; ++; 
Кле = tet a= "0') 2 8 : 10 ; 


while (num((*n = *t)) ) { 
ntt; t*t*t; ) 


ка = 7072 ре»; 
И == сек кослаг)) > =! 55 1 < 128) 7 1 
blank, 
) eise if (c == 'f') {//ro font chg allowed here 


Drantfo change fonts at line head only "); 
flushn(); 

|) else ( 
ПЕР wnout error= "); 
Spratt Ge Netmyvalytd escape character ( %c )\n",c),s 
Since tembedced within text... in"); 
flushh(); 

} 

return(0); 


inu: 'char() { //move chars from tbuf to pbuf until 
//PAGEWTH exceeded, replace nonexistent 
//chars with blank? ow, exit 
register int 1|; 


infont = kt, 
ШЕ (раг 1 г?опЕха | ) ( 
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muU fcharivmftont] == 0) ( 
getdef(); 
if (гони <> ги <= pagewth*8) 
гомм 2+ а=>гы; 
а се! (кр = са“; return(!);} 
} else if (roww+tfcharlinfontl->rw <z pagewthx8) 
roww =+ fcharlinfont) > гм; 


else (*p = 'Хп'; returr(1),} 


} else if (hdrllinfont=blank)x2)]) { 
kt = blank; 
if (fcharlinfont) == 0) { 


cetdef(); 
if (гомы+а-> гы <z pagewthx*8) 
гойя 2+ а->гыи; 
е1ѕе {жр = 'Мп'; гебогп(1);) 
) else if (rowwtfcharlinfont] -»rw <z pagewthx8) 
roww =+ fcharlinfontl->rw; 


else (xp = 'An'; return(1);) 


) else { 
printf("character "Х30" not defined in %s",*t, 
header); 
flushh(); 
} 
хр з хозь; 
гебогп( 0); 
) 
pont (a) 
сћаг ха; { //a points to new font name 
register int 1; 
B (fp) { 
сила С с1|озецйфп"); с! озе (Тр); 
(ог(1=16; (ћеадег (1) = ха++) != 'М/0';)++) ; 
if((fo=open(header,0)) < 0) { 
printf("cannot open %s",header); exit(); 
} 
antf ("AZS opened....",header); 
dealloc(nodectr); nodeptr = 0; 
Шо 1=0;1<128;1)++) fcharlı) = 9% 
read(fo,har,5]2); regd(fp,E£ht,2); 
read(fp,&maxw,eo); read(fo,&8&lht,2): 
if (check()) ( 
printf("Xs bad font file",header); 
exit); 
} 
} 


sed oc ix) 
int x; { //free in reverse order 
// of allocation 
while (x) 
if Cfchar[fmarkí--x]1] -»optr) 
free(fcharlfmar«[x)J]->optr); 
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pagebreak() { //page eject 
int 1; 
сћаг егг; 
err * cvers(pldev,020); 
if ( err == -1 ) (І 
Srintt( invalid filedes in pagebreak\n"); 
exit); 
} 
for (i120; i1«TOP; i**) writel(oldev,zero,c); 
linecount - TOP; 
) 


getdef() { 
int blkc,bytc; register 1; 
рікс z (hdrítinfont*2a]&017/400) »» 8; 
рікс 28 0577; 
bytc 7 hdríinfont*2*11]; 
motbikc) ( 
seek(fp,blkc, 3); seek(fp,bytc,l); ) 
else seek(fp,bytc,0); 
getnode(); 
a->cc = infont; 
read(fp,&a-»r«a,20); 
паза (Тр, бат? 1 Кк,е); геай(То,ва->г?г,е); 
read(fp,&a-»drc,o); 
a-»bytes = (a->rw%8 == 0) ? a->rw/8 : a-»rw/8*1; 
Ш(Са->согс) { 
ше за -совресг=а! ос (а=>агсхкаг>буге5)) < 0) t 
dealloc(nodectre-1); 
getdef(); return; 
} 
read(fo,a-»optr,a-»drc*a-»bytes); 
) 
in = 0; 
Тог (120; 1<подер г;1++) { 
iflfmarkl[ı)l == infont) in++; 
} 
ıflin == 0) fmarkínodeptr-1] = infont; 
) 


getnode() { 
mu nodeptr » 127) ( 
pentfe"overflow"); exit();) 
EN c fcharíiinfont] - &clist (nodeotrt*1; 
а->ор‹г = 0; 
} 


mee roo f(x) 
Ent x, { 
х =" (х%8 == 
(хе = 
if(x == 
*++р] = 


ОООО? хита х/8 + 15 
= 0) гетигп(х); 

e63) returnlz262)} 

0; гетугп( + +х); 
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int check) ( 


ПН as 0 |; оће < 0 |, 
КИЕ > 256 11 Iht > ht) return(l); 
else return(0); 


} 


int nroom(x) 
ШІС Хх, { 
if(linecount + x > PAGEHT) return(1); 
else return(0); 


} 
САТЕ С) { 
mt tb, 
tb = lo; tb =8 0377; tb =<< openb1ts; 
Се > 7) { 
Е [++ =, (tb & 0177400) >> 8; 
kpl =&8 0; әрі =: tb 8 0377; 
} else { 
if(r <= openbits) { 
Sale alter 220177200) >> 8; 
орепр1,5 == fre 
} else { 
are alter 0177200) 2378; 
КЕ В | =! (с 8 0577; 
openbits 3 8- (г-орепръ 5); 
) 
) 
lo++; 
) 
Шек осе (со) 
char хсо; { 
Ent i, 1 = 0; 
Base = (хср == '0') 28: 10; 
aue (numlkcp) 46 «со := '%х0') 
1 = itbase + *cpt+ = "0"; 
return(i); 
} 
ШЕК поп (ср) 
char cp; { 
if(base 10 525 (ср >= '0' 88 cp <= '9')) гесигп(1); 


ШО асе == 8 28 (сер >= '0' && co <= '7')) return(l); 
Ши (ер == '8' 1. ср == '9') ( 

ВАТРЕ inout error-- "); 

ИИС Ntimoroper octal number...4d",cp); 


while (+ 12 'An') putchar(*t**); 
ex1t(); 
) 
else return(0); 
} 
getch() { 


char tt,Sr 





5 = геай (тр, ВЕТ, 1); 
if (s == 0 ) return('\0'); 
else return(tt); 

) 


flushh() {1 //7print bad input line and exit 
Ме (хе = о.) outchar(*tt++); 
exit(); 
) 
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